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" File: CONTEXT.C 

** This module determines trie correct context for spoken utterances to 
•* be executed in. 

** Public functions: ContextNewLang 
*" ContextCheck 
** ContextListAdd 
" ContextListSelect 

** Exported functions: ContextEnumProc 

** Private functions: ContextUstlnit 

** ContextAdd 

" HasKey 

** ContextAddAccel 

** ContextAddMenu 

** GetActivetang 

** AddLang 

" AddLngCommands 

** AddScrollBarCommands 

** ContextAddScrollBars 

** ContextAddWindSysCom 

** ContextAddPMGroup 

** ContextAddWind 

" ContextAddPopupMenu 

** StringGetSysChar 

** ContextPakWind 

** ContextPakMenu 

** ContextPakSysCom 

** ContextPakScroll 

** ContextPakWindDebug 

** ContextPakDebug 

** ContextPak 



#define WIN31 // need this to use extended 3.1 functionality 

#incJude <windows.h> 

#include <toolhelp.h> 

#inc!ude "vtools.h" 
#indude "van" 

«ifdef DEBUGJDLG 
int ContextTabs[3]; 
#endif 



j How is one window related to another. 

! 



•/ 

enum 

{ 



cw hasfocus = 1, 
cvnTparentlevel = 2. 



I Description for item in context list. 

I 



typedef struct tagCONTEXTITEM 

{ 



enum 

{ 



// What type of context info is it. 



CON WIND, 
CONJCON, 

CON_SYSCOM, // 
CON SCROLL, // 
CON MENUPOPUP, 
CON MENU, // 
CON ACCEL, // 
CON LAUNCH, // 
CON_MACRO, 
} conType; 



It is a window or a control. 
An iconized window. 

It is a universal window control, min/max/sys 
Scrolling commands. 
// A menu bar item that will popup. 
A menu item in the active menu. 
A short cut key. 
Executable item. 



int iLevel; 
HWND hwnd; 



// The window group/probability level. 
// Handle to the window associated. 



union 
{ 



struct 
{ 



enum 
{ 



// Is it a class we know about. 
CWC.STATIC, 
CWC_8UTTON, 
CWC LISTBOX, 
CWC COMBOBOX, 
CWC EDIT, 
CWC SCROLLBAR, 
CWC PMGROUP. 
CWC_MDICLIENT, 
CWC CHILD, //Other child 
CWCJ2ROUPBOX, // Special case 
CWC_POPUP, // Other popup 

} cwc; 

BOOL bForList; 
LPSTR szName; 
} Window; 



int SysCom; 



// System command id. 



int ScrtCom; 



// Scroll Interfase 



- struct 
{ 

HMENU hMenu; 
int iEntry; 
int iKeyPos; 
} MenuPop; 



// How far down is it not counting separators 



struct 



} Menu; 



HMENU hMenu; // Handle of the menu 

WORD id; // Item ID 

LPSTR szName; // Alias name from Lang 



HMENU hMenu; 
WORD id; 



} Acc; 



struct 
{ 



PSTR szTitle; 
PSTR szFile; 



} PMItem; 



// Title 
// Command string 



// PMItem string for CON_LAUNCH 



LPMACRO pMacro; // Macro from language 

in- 
struct tagCONTEXTITEM * pciNext; // Next item in the list. 
} CONTEXTITEM; 

/* 

I 

| Scroll bar types. 



#define SCRLS HORZ (0x8000) 
#define SCRLS WIN (0x4000) 
ttjefine SCRLS MDI (0x2000) 

#define SCRLS.ACT (~(SCRLS_HORZ | SCRLSJ/VIN | SCRLS_MDI)) 

/*. 

I 

| Scroll present mask 



#define SCRLM HORZ (0x0001) // Is horz scroll present 

#define SCRLM VERT (0x0002) // Is vert scroll present 

#define SCRLM HMDI (0x0004) // Is MDI Workspace scroll present 
#define SCRLM_VMDI (0x0008) 



I Context List. 

I 

*/ 

_LOCAL CONTEXTITEM * pciFirst = NULL; 
_LOCAL CONTEXTITEM • pciLast = NULL; 

J.OCAL unsigned iCheckSum = (UINT)-1; 

_LOCAL HWND hwndFocus = NULL; 

LOCAL HWND hwndAdive = NULL; 

LOCAL HWND hwndParent; 
_LOCAL HWND hwndPrvParent; 

.LOCAL 
LOCAL 
_LOCAL 

J.OCAL FARPROC IpprocContext = NULL; 



// Keep a check sum of the context. 

// Focus window 

// Active window 
// Current parent interogated. 
// This was the previous parent. 



int iCaptionLen; // The longest context caption length, 

int iDebugCapLen; 

int iGroupLevel; // The context group number. 



_LOCAL char szCaptionBun? * MAX_SYMBOL_LENGTH + 50]; // Caption buffer. 
J.OCAL LPLANG pLangCur = NULL; 

r 

I 

| These are switches 



_LOCAL BOOL bChildSysMenu; // Child sys commands used ? 
J.OCAL HWND hwndMenuSysPop; // Is the sys menu popped up ? 
J_OCALBOOL bMenuBarExist; 

_LOCAL BOOL bMenuPopExist; // Is there a popup menu active. 
_LOCAL int iScrollMask; // Is scroll present mask. 

/*. 

I 

| These are predefinned classes. 

I 

7 

LOCAL PSTR szPredefClassfJ = 

{ 

"Static", 

"Button", 

"ListBox", 

"ComboBox", 

"Edit", 

"ScrollBar", 

"PMGroup", // Program manager groups. 

"WDICIient", 

}I 

/*. 

I 

| FUNCTION _LOCAL void ContextListlnit(void) 



I DESCRIPTION Clear the previous context list. 

I 

I PARAMETERS None. 

I 

| RETURN None. 



LOCAL void ContextListlnit(void) 

{ 

1* Delete old context list 
7 

while (pciFirst != NULL) 
{ 

pciLast = pciFirst->pciNext; 

if (pciFirst->conType == CON LAUNCH) 

{ 

/* We allocate these string 

7 

StringNearDestroy(pciFirst->u.PMItem.szTitle); 
StringNearDestroy(pciFirst->u.PMItem.szFile); 

} 

Nfree(pciFirst); 
pciFirst = pciLast; 

} 

/* Reset the checking environment. 

7 

iCheckSum = 0; 

/* Leave 0 for the lang overrides. 
7 

iGroupLevel = 1 ; 

/* A pop up menu is on top. 

7 

hwndMenuSysPop = NULL; 

r The menu bar has been read ? 

7 

bMenuBarExist = FALSE; 

r Child sys commands used ? 
7 

bChiWSysMenu - FALSE; 

I* No scroll commands yet 

7 

iScrollMask = 0; 

} 

/*. 

I 

| FUNCTION LOCAL BOOL ContextAdd(hwnd, conType) 

I 

| DESCRIPTION Add an item of context info to the list. 



Filling in the union feilds is up to the caller. 

PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
int conType - 

RETURN TRUE if success 



_LOCAL BOOL ContextAdd(HWND hwnd, int conType) 

{ 

CONTEXTITEM * pel; 
int c; 

if (pciLast != NULL) 
{ 

/* Checksum the previous. 
*/ 

for <c = 0; c < sizeof(CONTEXTITEM); c ++) 

{ 

iCheckSum += {(PSTR) pciLast)[c]; 

} 

} 

/* Must have a window ? 

7 

if (hwnd == NULL) 

retum(FALSE); 

/* Allocate struct 
7 

pci = (CONTEXTITEM*) Nmalloc(sizeof(CONTEXTITEM)); 
if (pci == NULL) 

retum(FALSE); 

/* Set basic vars 

7 

pci->conType = conType; 
pci->iLevel = iGroupLevel; 
pci->hwnd = hwnd; 

/* Insert it after the pciLast. 
*/ 

if (pciFirst == NULL || pciLast == NULL) 
{ 

r At the start. 
7 

pci->pciNext = pciFirst; 

r save top. 

7 

pciFirst = pci; 

} 

else 
{ 

/•Insert after pciLast. 

7 



pciopciNext = pciLast->pciNext; 

/' Add to end. 
7 

pciLast->pciNext = pci; 



/* The current pointer. 

7 

pci Last = pci; 

/* Return true so we continue enumerating. 
retum(TRUE); 

} 

r 

1 FUNCTION _LOCAL BOOL HasKey(hMenu, iPos) 

I DESCRIPTION Check if the given menu has accelerator key. 

I We check only % \a, or \b presents in the string 



| PARAMETERS HWND hMenu - Specifies handle to the given menu. 
I int iPos - specifies posititon in the menu 

| RETURN 

7 

_LOCAL BOOL HasKey(HMENU hMenu, int iPos) 
int i; 

if(! GetMenuString(hMenu, iPos, szCaptionBuf, sizeof(szCaptionBufl - 1 
MF_BYPOSITION)) 

{ 

/* No text at all 

7 

retum(FALSE); 

} 

for (i = 0; i < lstrlen(szCaptionBuf) - 1 ; i ++) 

if (szCaptionBufTj] == '\t' j| // For Windows Apps 
szCaptionBufli] == "\a' || 

szCaptionBuf[i] == ^b 1 ) // For Microsoft Apps 

/•Has TAB or... 
7 

retum(TRUE); 

} 

} 

return(FALSE); 



f 

i FUNCTION LOCAL void ContextAddAccel(HWND hwnd, HMENU hMenu) 

i 

j DESCRIPTION Add the menu options to the context fist. 

I 

| PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
| HWND hMenu - Specifies handle to the given menu. 

I 

! RETURN None. 



LOCAL void ContextAddAccel(HWND hwnd, HMENU hMenu) 

{ 

int iPos; 
int items; 
WORD State; 

if (hMenu == NULL) 

{ 

r No menu 
*/ 

return; 

} 

/* For all items 
*/ 

items = GetMenultemCount(hMenu); 
for (iPos = 0; iPos < items; iPos ++) 
{ 

State = GetMenuState(hMenu, iPos, MF BYPOSITION); 
if (State ==-1) 
break; 

if (State & MF.POPUP ) 

{ 

/* Check submenu 
*/ 

ContextAddAccei(hwnd, GetSubMenu(hMenu, iPos)); 

} 

else if (! (State & (MF.DISABLED | MF.GRAYED | MF.BITMAP | 
MF_OWNERDRAW))) 
{ 

if (HasKey(hMenu, iPos)) 
{ 

/* Add accelerator now 
*/ 

if (! ContextAdd(hwnd, CON_ACCEL)) 
return; 

pciLast->u.Acc.hMenu = hMenu; 

/* We use position as an ID 
*/ 

pciLast->u.Acc.id = GetMenultemlD(hMenu, iPos); 

} 



} 



FUNCTION .LOCAL BOOL ContextAddMenu(HWND hwnd, HMENU hMenu) 

DESCRIPTION Add the menu options to the context list. 

PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
HWND hMenu - Specifies handle to the given menu. 

RETURN None. 



LOCAL BOOL ContextAddMenu(HWND hwnd, HMENU hMenu) 

{ 

int i; 

int items; 
WORD State; 
int numseparators; 

if (hMenu == NULL) 
{ 

/* No menu 
7 

retum(FALSE); 

1 

/* For all items 

7 

items = GetMenultemCount(hMenu); 
numseparators = 0; 
for (i = 0; i < items; i ++) 
{ 

State = GetMenuState(hMenu, i, MF BYPOSITION); 
if (State ==-1) 
break; 

if (I ContextAdd(hwnd, (State & MF POPUP) ? CON MENUPOPUP : 

CON_MENU)) 

return(FALSE); 

r Popups return different values 
7 

if (! (State & MF POPUP)) 
{ 

/* Skip separator 

7 

if (State & MF_SEPARATOR) 
numseparators++; 

} 

if (pciLast->conType == CON MENUPOPUP) 
{ 

r Store the entry number. 



V 

pciLast->u.MenuPop.iEntry = i; 
pciLast->u.MenuPop.iKeyPos = i - numseparators; 
pciLast->u.MenuPop.hMenu = hMenu; 

} 

else 
{ 

/* Store ID. 
*/ 

pciLast->u.Menu.id = GetMenuitemlD(hMenu, i); 
pciLast->u.Menu.hMenu = hMenu; 

} 

} 

retum(TRUE); 

} 



r 

I 

1 FUNCTION void ContextNewLang(pLangEdit) 

I 

j DESCRIPTION Change macro language. 

I 

I PARAMETERS LP LANG pLangEdit - Specifies pointer to the new language. 

i 

| RETURN None. 



void ContextNewLang(LPLANG pLangEdit) 
{ 

char szFile[MAXFILENAME + 1]; 

/* Destroy old language if present 
*/ 

LangChainDestroy(pLangCur); 

if (pLangEdit == NULL) 
{ 

/* Try to open users language 

7 

IniGetUserfile(szFile); 
lstrcat(szFiie, " LNG"); 
pLangCur = LangLoad(szFile); 

} 

else 

{ 

/* Try to copy from editor 
7 

pLangCur = LangChainMake(pLangEdit); 

} 

if (pLangCur— NULL) 
{ 

/* Try to open default language 
7 

IniGetLangFile(szFile); 



pLangCur = LangLoad(szFile); 

} 



/* 

| FUNCTION _LOCAL LPLANG GetActiveLangO 

j DESCRIPTION A new task has been loaded so load new language 
I or the default langauge. 

| PARAMETERS None. 

| RETURN Pointer to the app specific language. 
7 

LOCAL LPLANG GetActiveLangO 

{ 

static HWND hwndPrevActive = NULL; 

static LPLANG pActiveLang = NULL; 

HANDLE hTask; 

TASKENTRY te; 

char szFilefMAXFILENAME + 1J; 

/* Active window changed 

7 

if {hwndPrevActive != hwndActive) 
{ 

/* Save currently active window for the next call 
•/ 

hwndPrevActive = hwndActive; 

/* Get task handle 
*/ 

hTask = GetWindowTask(hwndActive); 

if (hTask == NULL) 
{ 

/* No task ?! 
7 

pActiveLang = NULL; 

} 

else 
{ 

/* Get module name 

7 

te.dwSize = (DWORD) sizeof(te); 
TaskFindHandle((TASKENTRY FAR *) &te, hTask); 
GetModuleFileNametfe.hModule, (LPSTR)szFile, sizeof(szFile) - 1); 

/* Try to find language 
•/ 

for (pActiveLang = pLangCur->pNext; pActiveLang != NULL; 
pActiveLang = pActiveLang->pNext) 



if (! lstrcmpi(szFi!e, pActivel_ang->szFile)) 

{ 

/• Here it is 



} 

} 

} 

} 

/* Return pointer to the language or NULL 
7 

return(pActiveLang); 



FUNCTION _LOCAL void AddLang(pLang, hwnd, szClass, szWndText, bMenuPopExist ) 

DESCRIPTION Add macro command from the language 

PARAMETERS LPLANG pLang - Specifies pointer to the language. 

HWNO hwnd - Specifies handle to the window we are looking at. 
PSTR szClass • Specifies pointer to the class name string. 
PSTR szWndText - Specifies pointer to the windows title. 
BOOL bMenuPopExist - TRUE if popup menu on the screen. 

RETURN None. 



_LOCAL void AddLang(LPLANG pLang, HWND hwnd, PSTR szClass, PSTR szWndText, BOOL 
bMenuPopExist ) 

{ 

LPGROUP pGroup; 
LP MACRO pMacro; 
HWND hwndMacro; 

if (pLang == NULL) 

r No language selected 
7 

return; 

r Try to find proper group 
*/ 

for (pGroup = pLang->pGroup; pGroup != NULL; pGroup = pGroup->pNext) 

{ 

if( 

r Default group 
7 

(pGroup->szClass == NULL && szClass == NULL) 

/* Class group 

7 

li(( pGroup->szClass != NULL && szClass != NULL && ! 
lstrcmp(pGroup->szClass, szClass) 



szWndText))))- 



>pNext) 



>pciNext) 
entry 

|j pci->conType == CONJCON) 
szBuf, sizeof(szBuO-l); 
child ID 

GetWindowWord(pci->hwnd, GWW_ID) && 
pMacn»szWndCIass)) 

have allias yet 

>u.Window.szName == NULL) 
>u.Window.szName = pMacro->szName; 



) && (pGroup->szWndText == NULL || ! lstrcmp(pGroup->szWndText, 

/* Work with macros if the group has been found 

for (pMacro = pGroup->pMacro; pMacro != NULL; pMacro = pMacro- 



hwndMacro s hwnd; 
switch (pMacro->cmdType) 
{ 

caseCMD WNDNAME: 
{ 

/* Set allias name for the window 
7 

CONTEXTITEM * pci; 
charszBuflMAXSTRING + 1]; 

/* Look through the whole list 
*/ 

for (pci = pciFirst; pci != NULL; pci = pci- 
{ 

r We need CON_WIND or CONJCON 
*/ 

if (pci->conType == CON_WIND 
{ 



GetClassName(pci->hwnd, 

/* Compare class name and 
*/ 

if (pMacro->itemid == 
! lstrcmp(szBuf, 
{ 

r Window shouldn't 
*/ 

if (pci- 
{ 

/* Set it 

7 

pci- 
break; 



} 

break; 



>pciNext) 



&& 

>u. Menu, id) 



NULL) 



pMacro*>szName; 



case CMDJvlENUNAME: 

{ 

/* Set allias name for the menu item 
7 

CONTEXTITEM * pci; 

for (pci = pciFirst; pci != NULL; pci = pci- 

{ 

/* We need CON_MENU with the same 
7 

if (pci->conType == CON_MENU 
pMacro->itemid == pci- 



{ 



/* Item shouldn't have allias yet 
7 

if (pci->u.Menu.szName == 
{ 

r Set it 
*/ 

pci->u.Menu.szName = 
break; 



window to play to it 



} 

break; 



case CMD MOUSE : 
case CMD_JOURNAL : 



I* For mouse and journal macro we need to find 



CONTEXTITEM * pci; 

char szBuf[MAXSTRING + 1]; 



r Class name of the window is the main 



if (pMacn»szWndClass) 



{ 



hwndMacro = NULL; 



/* Look through the whole list 
7 



pciopdNext) " 
CON_WIND) 
and child ID 

>hwnd t szBuf, sizeof(szBuO-l); 
GetWindowWord(pci->hwnd, GWWJD) && 
pMacro->szWndCiass)) 

found it 
pci->hwnd; 



for (pci = pciFirst; pci != NULL, pci = 



if (pci->contype == 



{ 



r Compare class name 
•/ 

GetClassName(pci- 
if (pMacro->itemid == 
1 lstrcmp(szBuf, 



{ 



/* we have 

7 

hwndMacro = 
break; 



} 

if (hwndMacro == NULL) 



/* No window 
7 

break; 



menu on the screen 



if (bMenuPopExist) 

/• Can not do anything while popup 

7 

break; 

if (i ContextAdd(hwndMacro, CON MACRO)) 
/* Not enough memory 

return; 

/•Add it 

7 

pciLast->u.pMacro ~ pMacro; 



r 



I FUNCTION _LOCAL void AddLngCommands(hwnd, szClass, szWndText, bMenuPopExist ) 
| DESCRIPTION Add macro command. 

| PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
I PSTR szClass - Specifies pointer to the class name string. 

I PSTR szWndText - Specifies pointer to the windows title, 

j BOOL bMenuPopExist - TRUE if popup menu on the screen. 

| RETURN None. 

V 

_LOCAL void AddLngCommands(HWND hwnd, PSTR szClass, PSTR szWndText, BOOL 
bMenuPopExist ) 

{ 

if (pLangCur== NULL) 

{ 

/* No language at all 
*/ 

return; 

} 

/* Application specific language 
•/ 

AddLang(GetActiveLangO, hwnd, szClass, szWndText, bMenuPopExist); 

r Global language 
*/ 

AddLang(pLangCur, hwnd, szClass, szWndText, bMenuPopExist); 

} 

/* 

| FUNCTION _LOCAL void AddScrollBarCommands<hwnd, ScrollMask, iCheckMask) 
| DESCRIPTION Create scroll bar command. 

| PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
j int ScrollMask • Specifies scroll mask, 

j int iCheckMask - Specifies check mask. 

| RETURN None. 

*/ 

LOCAL void AddScrollBarCommands(HWND hwnd, int ScrollMask, int iCheckMask) 

{ 

/* Scroll command with this name shouldn't be in the list twice 
*/ 

if (! (iScrollMask & iCheckMask)) 
{ 

/* This is first one 



' iScroliMask |= iCheckMask; 

if (! ContextAdd(hwnd, CON_SCROLL)) 
/* Not enough memory 
*/ 

return; 

pciLast->u.Scr!Com = SB_LINEUP | ScrollMask; 

if (! ContextAdd(hwnd, CON_SCROLL)) 
/* Not enough memory 

•*/ 

return; 

pciLast->u.ScrlCom = SBJJNEDOWN | ScrollMask; 

if (! ContextAdd(hwnd, CON_SCROLL)) 
/* Not enough memory 

v 

return; 

pcii_ast->u.ScriCom = SB_PAGEUP j ScrollMask; 

if (! ContextAdd(hwnd, CON_SCROLL)) 
r Not enough memory 
*/ 

return; 

pciLast->u.ScriCom = SB_PAGEOOWN | ScrollMask; 



FUNCTION _LOCAL void ContextAddScrollBars(hwnd, Style, cwc) 
DESCRIPTION Add scroll bar commands. 

PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
LONG Style - Specifies windows style 
int cwc - Specifies window type. 

RETURN None. 

f 

_LOCAL void ContextAddScrollBars(HWND hwnd, LONG Style, int cwc) 
{ 

switch (cwc) 

{ 

case CWC MDICLIENT: 

if (Style & WS VSCROLL) 

{ 

AddScrollBarCommands(hwnd, SCRLS MOI, SCRLM VMDI); 

} 

if (Style & WS HSCROLL) 

{ 



AddScrollBarCommands(hwnd, SCRLS MDl | SCRLS_HORZ, 

SCRLM HMDI); 

} 

break: 

case CWC SCROLLBAR : 

if (Style & SBS_VERT) 
{ 

AddScrollBarCommands(hwnd, SCRLS WIN, SCRLM_VERT); 

} 

else 
{ 

AddScrollBarCommands(hwnd, SCRLS WIN | SCRLS HORZ, 

SCRLM_HORZ); 

} 

break; 

default: 

if (Style & WS VSCROLL) 

{ 

AddScrollBarCommands(hwnd, 0, SCRLM_VERT); 

} 

if (Style & WS HSCROLL) 

{ 

AddScrollBarCommands(hwnd, SCRLS_HORZ, 

SCRLM HORZ); 

} 

} 

} 



FUNCTION _LOCAL void ContextAddWindSysCom(hwnd, Style) 

DESCRIPTION Add system type commands for the window. 

PARAMETERS HWND hwnd - Specifies handle to the given window. 
LONG Style - Specifies windows style 

RETURN None. 

NOTE Maximized MDl children are strange. 

The sys menu/restore is in the main menu of parent. 

They will not register normal WS_SYSMENU and restore boxes. 

Microsoft Excel violates even these rules ! 

It will not set the WS_MAXIMIZE bit ! 



.LOCAL void ContextAddWlndSysCom(HWND hwnd, LONG Style) 

if (! (Style & WS CHILD) || ! (Style & WS_MAXIMIZE)) 
{ 

/* Does the window have system command menu ? 
*/ 

if (! (Style & WS.SYSMENU)) 
return; 



} 

else 
{ 

/* Can we get one "? 

7 

if (GetSystemMenu(hwnd, FALSE) — NULL) 
return; 

} 

/* Already got sysmenu type stuff ? 

7 

if (bChildSysMenu && (Style & WS_CHILD)) 

return; 
bChildSysMenu = TRUE; 

/* Check to see if sys menu is already popped up. 

7 

if (hwndMenuSysPop == hwnd) 
/* Already popped. 

7 

return; 

/* Option to pull down the sys menu. 

7 

if (! ContextAdd(hwnd, CON_SYSCOM)} 

return; 
/* The menu itself. 
7 

pciLast->u.SysCom = SC_KEYMENU; 

r If the window is iconic then the others are not really available. 
"* Although they will say they are. 

7 

if (Style & WSJCONIC) 
return; 

r Option to close the window or app 

** This is equiv. to double click on sys menu box. 

7 

if (! ContextAdd(hwnd, CON_SYSCOM)) 
return; 

pciLast->u.SysCom = SC_CLOSE; 

/* Get the min/max controls seperatly for now. 
7 

if (Style & WS MINIMIZEBOX) 

{ 

if (! ContextAdd(hwnd, CONSYSCOM)) 
return; 

pciLast->u.SysCom = SC MINIMIZE ; 

} 

/* If the window is maximzed then we need a restore box. 

7 

if (Style & WS MAXIMIZEBOX) 

{ 



if (! ContextAdd(hwnd, CON_SYSCOM)) 
return; 

pciLast->u.SysCom = (Style & WS MAXIMIZE) ? SC RESTORE : 
SC_MAXIMIZE ; 

} 

} 

/* 

I 

| FUNCTION LOCAL void ContextAddPMGroup(hwnd, Style) 

I 

j DESCRIPTION Add content of Program Manager Group 

I 

| PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
| LONG Style - Specifies windows style 

I 

| RETURN None. 



LOCAL void ContextAddPMGroup(HWND hwnd, LONG Style) 

{ 

SHELLITEM Si; 
BOOL bRet; 

if (Style & WSJCONIC) 

{ 

/* We dont look inside iconic window, user cannot either 
*/ 

return ; 

} 

/* Window text is a group name 
*/ 

GetWindowText(hwnd, szCaptionBuf, sizeof(szCaptionBuf) - 1); 

/* Enumerate PM items inside the group 
*/ 

bRet = ShellGetFirstltem(&VCTalk, szCaptionBuf, &si); 
while (bRet) 

{ 

/* We need command string to execute 
*/ 

if (si.szFiie) 
{ 

if (! ContextAdd(hwnd, CON.LAUNCH)) 
I* not enough memory 
*/ 

return; 

r Title is the name, file is the command string 

7 

pciLast->u.PMItem.szTitle = StringNearMake(si.szTitle); 
pciLast->u.PMItem.szFile = StringNearMake(si.szFile); 

} 

/* Next one ? 

7 



. bRet = ShellGetNextltem(&VCTalk, &si); 

} 



/* 

| FUNCTION _LOCAL BOOL ContextAddWind(hwnd, checktype) 

I DESCRIPTION Check the window for useful context info. 

I PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
I int checktype - what type are we looking at. CW_* 

| RETURN TRUE if success. 

| NOTE Windows have the attributes of: 

I window handle 

j window caption text, GetWindowTextO 

I parent handle, GetParentO 

| rectangle. GetWindowRectO GetClientRectO 

I child id number. GetDlgCtrllDO 

I Enabled or disabled. IsWindowEnabled(hwnd) 

| Active or Inactive. GetActiveWindowO ? 

I Have focus ? GetFocusO 

| Window Class attributes. WNDCLASS. GetClasslnfo 

j style bit mask. 

| class name. GetClassName ? 

j module handle, Module name GetModuleFileName 

I ? cursor 

| ? icon 

| ? Menu bar resource name. 

j In the future we want to add special controls for known classes. 

| SCROLLBAR = bars may not be sub windows but part of the non client ! 

j BUTTON = none needed but press. 

I STATIC = not needed but may label another control. 

| COMBOBOX = may have scrollbars, pull down, options inside ? 

j EDIT = scroll bars, new or dictated text ? 

| LISTBOX 

| We start from the bottom and work up. but previous parents are special, 

j Don't duplicate the parent of current focus. 

7 

_LOCAL BOOL ContextAddWind(HWND hwnd, int checktype) 
{ 

LONG Style; 
int cwc; 

int conType = CON WIND; /* default object type. 7 

charszClassfMAXSTRING + 1]; 
char szWndText{MAXSTR!NG + 1]; 
PREF FLAGS prefFlags = UserGetFlagsQ; 



if (hwnd == hwndPrvParent) 

/* We have already done with this window 
7 

retumfTRUE); 

/• Immediate children only. 
*/ 

if ((checktype & CW_PARENTLEVEL) && ! (checktype & CW_HASFOCUS)) 

if (hwndParent != GetParent(hwnd)) 
/* Child of inactive window 
7 

return(TRUE); 

} 

/* Is the window iconized. 

7 

Style = GetWindowLong(hwnd, GWL.STYLE); 

if (Style & WS ICONIC) 

{ 

conType = CON ICON; 

} 

/* Is the window one of the known classes. 
7 

GetClassName(hwnd, szClass, sizeof(szClass) - 1); 

if (Style & WS CHILD) 
{ 

/* check all control classes 

7 

for (cwc = 0; cwc < CWC CHILD; cwc ++) 
{ 

if (! lstrcmpi(szClass, szPredefClass[cwc])) 
break; 

} 

} 

else 
{ 

/* It's popup 
7 

cwc = CWC POPUP; 

) 

if (cwc == CWC.BUTTON && (Style & OxOF) == BS GROUPBOX) 
{ 

1* GroupBox is a special class 
7 

cwc = CWC GROUPBOX; 

} 

r Add children ScrollBars Control 
7 

if ((prefFlags & PREF Scroll) && cwc CWC_SCROLLBAR) 

{ 

ContextAddScrollBars(hwnd, Style, cwc); 



/* We must be focus or a parent of the focus to get menus and parts. 
7 

if ((checlctype & CW HASFOCUS) && (conType != CON ICON)) 
{ 

/* Does the window have a menu bar ? 

7 
if( 

/* Not a child window. 
7 

! (Style & WS_CHILD) && 

/* Already have a menu, ONLY WANT ONE. 

7 

! bMenuBarExist) 

{ 

/* Get a menu bar if there is one. 

7 

if ((prefFlags & PREFJvlenu) && ContextAddMenu(hwnd, 

GetMenu(hwnd))) 

{ 

bMenuBarExist = TRUE; 

} 

} 

/* FOR NOW, if a popup menu is active the window is not ??? 

7 

if (! bMenuPopExist) 

{ 

/* Add accelerators. 

7 

if (bMenuBarExist && (prefFlags & PREF Accel)) 
{ 

ContextAddAccel(hwnd, GetMenu(hwnd)); 

} 

/* Add contens of PMGroup 
7 

if (checktype == CW HASFOCUS && cwc == CWC.PMGROUP && 
(prefFfags & PREFJ/VndChild)) 
{ 

ContextAddPMGroup(hwnd, Style); 

} 

/* Get system type commands. 

7 

if (prefFlags & PREF SysCom) 
{ 

ContextAddWindSysCom(hwnd, Style); 

} 



r Add scroll commands 
7 

if (prefFlags & PREF Scroll) 
{ 

ContextAddScrollBars(hwnd, Style, cwc); 

} 

} 

/* Add macro commands 

7 

if (prefFlags & PREF_Macro) 

{ 

/* Add non class specific macro commands only for the focus window 
7 

if (checktype == CW_HASFOCUS) 

{ 

AddLngCommands(hwnd, NULL, NULL, bMenuPopExist); 

} 

/* Add windows specific macro commands for any active window 

7 

GetWindowText(hwnd, szWndText, sizeof(szWndText) - 1); 
AddLngCommands{hwnd, szClass, szWndText, bMenuPopExist); 

} 

} 

/* Add the window itself after its sub parts. 

7 

if (! ContextAdd(hwnd, conType)) 

return(FALSE); 
pciLast->u.Window.cwc = cwc; 

/* We need to add window even if a user doesn't whant one 
7 

if (! (checktype & CW HASFOCUS) && 

((cwc == CWC POPUP && ! (prefFlags & PREF WndPopup)) || 
(cwc != CWC POPUP && ! (prefFlags & PREF_WndChild)))) 

{ 

r Not valid for phrase list 
7 

pciLast->u.Window.bForList = FALSE; 

} 

else 

{ 

I* Valid for phrase list 
7 

pciLast->u.Window.bForList = TRUE; 

} 

retum(TRUE); 



I FUNCTION " _LOCAL void ContextAddPapupMenu(void) 

I 

| DESCRIPTION Get a popped up or selected menu or menu tree. 

I 

| PARAMETERS None. 

I 

| RETURN None 



_LOCAL void ContextAddPopupMenu(votd) 

{ 

HMENU hMenu; 
LONG Style; 
HWND hwnd = NULL; 
int iLevel = 0; 

r Start 

7 

bMenuPopExist = FALSE; 

if <HookGet_MenuLevelO == -1) 
{ 

/* No menu at all 

7 

return; 

} 

while (1) 
{ 

/* Is there a menu popped up. 

7 

hMenu = HookGetJV1enu(iLevel ++); 
if (hMenu == NULL) 

/* No menu at all 

7 

return; 



/* Get menu from its owner window. 

**Do just once. 

7 

if (hwnd == NULL) 
{ 

bMenuPopExist = TRUE; 

hwnd = HookGet_MenuWndO; 

if (GetWirtdowTask(hwnd) " GetCurrentTaskO) { 

/* Don't look at Voice control 

7 

return; 

} 

Style = GetWindowLong(hwnd, GWL STYLE); 

} 

/* If the popup menu is part of the main menu bar, 
** then mark that we already have it. 
~ NOTE: 



" GetMenuO is undefined for WS_CHILD types. 
- */ 

if (! (Style & WS CHILD)) 
{ 

if (hMenu == GetMenu(hwnd)) 
bMenuBarExist = TRUE; 

} 

/* Add menu without accelerators 

*/ 

if (UserGetFlagsO & PREF_Menu) 

{ 

if (ContextAddMenu(hwnd, hMenu)) 
{ 

iGroupLevel++; 

} 

} 

r Is it a system menu 
*/ 

if (hMenu == GetSystemMenu(hwnd, FALSE)) 

{ 

hwndMenuSysPop = hwnd; 

} 

} 

} 

/- 

| FUNCTION BOOL CALLBACK ContextEnumProc(hwnd, IParam) 

I DESCRIPTION Callback function that receives window handles as 
| a result of a call to the EnumWindows function. 

| PARAMETERS HWND hwnd - Specifies handle of the target window. 
] LONG IParam - What do we do with the data once we have it ? 

| RETURN Return nonzero to continue enumeration. 

•/ 

BOOL FAR PASCAL ContextEnumProc(HWND hwnd, LONG IParam) 

{ 

return (ContextAddWind(hwnd, (int) IParam)); 

} 

/» 

I 

j FUNCTION LOCAL char StringGetSysChar(String) 

I 

| DESCRIPTION Get underlined symbol fron the menu item. 

I 

| PARAMETERS PSTR String • Specifies menu string. 

I 

| RETURN Underlined symdol. 



J.OCAL char StringGetSysChar(PSTR String) 
{ 

while ('String) 

{ 

if (*(String++) == '&') 
{ 

/* We have found & 
*/ 

break; 

} 

} 

/* Return address of the next one 
*/ 

retum(*String); 

} 

/• 

I 

| FUNCTION _LOCAL int ContextPakWind(hwnd) 

I 

| DESCRIPTION Pak a string description for the window type object. 
I User pciLast to identify the object. 

I 

| PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 

| RETURN Length of the caption text. 

I 

7 

LOCAL int ContextPakWind(HWND hwnd) 

{ 

int len; 

/* If window not active then ignore it. 

7 

if( 

(! IsWindowEnabled(hwnd) 

|| ! IsWindowVisibfe(hwnd))) /* Not really working ??? 7 

return(O); 

/* What is its caption text ? 

7 

len = GetWindowText(hwnd, szCaptionBuf, sizeof(szCaptionBuf) - 1); 
/* 

** What is its class. 
7 

switch (pciLast->u.Window.cwc) 
{ 

caseCWC EDIT: 
caseCWC COMBOBOX: 
caseCWC LISTBOX: 
case CWC.SCROLLBAR: 

r Edit/Comb/List captions are the current text inside them ? 

7 

len = 0; 
break; 



• case CWC_GROUPBOX: 
case CWC_STATIC: 

/* If static or group box has & it lable something 
7 

if (! StringGetSysChar(szCaptionBuf)) 
{ 

!en = 0; 

} 

break; 

default: 



} 

return(len); 

} 

r 

I FUNCTION _LOCAL int ContextPakMenu(hMenu, idltem, fuFlags) 

I DESCRIPTION Get an option from a menu. 

| PARAMETERS HMENU hMenu - Specifies handle to the menu, 
j int idltem - Specifies item ID. 

( UINT fuFlags - Specifies item flags. 

I RETURN Length of the caption text. 

j NOTE When sys menus of child windows are popped up: 

[ they have a popup menu type with a caption of junk ? 

| The high MF_ values str not valid for MF_POPUP or menu bars. 

j high = the number of entries in the popup. 

7 

LOCAL int ContextPakMenu(HMENU hMenu, int idltem, UINT fuFlags) 

{ 

WORD State; 

int len = 0; 

if (hMenu == NULL) retum(O); 

State = GetMenuState(hMenu, idltem, fuFlags); 
if (State ==-1) retum(O); 

f* Is the item available grayed, disabled ? 

** -1 == not exist. 

7 

if ((State &MF DISABLED) 

1 1 (State & MF_GRAYED )) 
return 0; 

if (! (State & MF POPUP)) 
{ 

if ((State & MF_BITMAP) 



|| (State & MFjDWNERDRAW)) 
return 0;; 

} 

/* Get the text description. 
*/ 

len = GetMenuString(hMenu, idltem, szCaptionBuf, sizeof(szCaptionBuf) - 1, fuFlags); 
return(len); 

} 

/•. 

| FUNCTION _LOCAL int ContextPakSysCom(hwnd, iSysCom) 
| DESCRIPTION Create system command string. 

I PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
| int iSysCom - SC_... 

| RETURN Length of the caption text. 

7 

LOCAL int ContextPakSysCom(HWND hwnd, int iSysCom) 

{ 

char StrfMAXSTRING + 1]; 
int len = 0; 

switch (iSysCom) 
{ 

caseSC KEYMENU: 
case SC.MOUSEMENU: 

/* We can get other options by pulling down the sys menu. 

*/ 

len = wsprintf( 

szCaptionBuf, 
"%s %s", 

(LPSTR)UserGetDefWord((GetWindowLong(hwnd,GWL_STYL 
E) & WS_CHILD) ? IDW CHILD : IDW.POPUP), 

(LPSTR)UserGetDefWord(IDW_SYSMENU)); 

break; 

case SC CLOSE: /* May be close window or app. 7 

case SC~MINIMIZE: 
case SC MAXIMIZE: 
case SC.RESTORE: 

r List these visible controls seperately. 

7 

default: 

GetMenuString(GetSystemMenu(hwnd, FALSE), iSysCom, Str, 
MAXSTRING, MF_BYCOMMAND); 

len = StringClip(Str); 

if (len) 

{ 

len = wsprintf( 

szCaptionBuf, 



"%s %s", 
(LPSTR)Str, 

(LPSTR)UserGetDefWord((GetWindowLong(hwnd GWL 
STYLE) & WS CHILD) ? IDW CHILD . 1DW_P0PUP))" 

} 

} 

return(len); 



| FUNCTION _LOCAL int ContextPakScroll(iScrlCom) 

| DESCRIPTION Create scroll command string. 

| PARAMETERS int iScriCom - Specifies scroll command. 

| RETURN Length of the caption text. 

7 

LOCAL int ContextPakScroll(int iScriCom) 

{ 

int len; 
int idWord; 

/* First try all type of horizontal! scroll 

7 

if (iScriCom & SCRLS HORZ) 

{ 

switch (pciLast->u.ScrlCom & SCRLS_ACT) 
{ 

case SBJJNEUP: 
/* line left 
*/ 

idWord = IDWJJNELEFT; 
break; 
case SB_LINEDOWN: 
/* line right 

7 

idWord = IDWJ.INERIGHT; 
break; 
case S8_PAGEUP: 
r page left 

7 

idWord = IDWJ=AGELEFT; 
break; 
case SB.PAGEDOWN: 
/* page right 
7 

idWord = IDW_PAGERIGHT; 
break; 

} 

} 

/* Now all type of vertical scroll 



_LOCAL int ContextPak(void) 

{ 

int len; 

HWND hwnd = pciLast->hwnd; 
'szCaptionBuf = '\0'; 

switch (pciLast->conType) 

{ 

case CON WIND: 
case CONJCON: 

/* Does the user want to have window names ? 

*/ 

if (! pciLast->u. Window. bForList) 
{ 

len = NULL; 
break; 

} 

/» Does alias name exist ? 

7 

if (pciLast->u.Window.szName) 
{ 

lstrcpy(szCaptionBuf, pciLast->u.Window.szName); 
len = Istrten(szCaptionBuf); 

} 

/* Try to get caption 
7 

else 
{ 

len = ContextPakWind(hwnd); 

} 

break; 

case CON_SYSCOM: 

r The system command for the window. 
7 

len = ContextPakSysCom(hwnd, pciLast->u.SysCom); 
break; 

case CON.SCROLL: 

len = ContextPakScroll(pciLast->u.ScriCom); 
break; 

case CON_MENU: 

/* Does alias name exist ? 
7 

if (pciLast->u.Menu.szName) 
{ 

lstrcpy(szCaptionBuf, pciLast->u.Menu.szName); 
len = lstrlen(szCaptionBuf); 

} 

/* Get an item from a popped up menu. 

7 



else { 

len = ContextPakMenu(pciLast->u.Menu.hMenu, pciLas 
>u.Menu.id, MF BYCOMMAND); 

} 

break; 

case CON_MENUPOPUP: 

/* Read an item from the menu bar. 
*/ 

len = ContextPakMenu(pciLast->u.MenuPop.hMenu, pciLast- 
>u.MenuPop.iEntry, MF_BYPOSITION); 

break; 

case CON_ACCEL 

/* Accelerator has the same text as a menu item (it available thought) 
7 

len = GetMenuString(pciLast->u.Acc.hMenu, pciLast->u.Acc.id, 

szCaptionBuf, 

sizeof(szCaptionBuf) - 1, MF_BYCOMMAND); 



case CON.LAUNCH : 
/• PM item title 
*/ 

lstrcpy(szCaptionBuf, pciLast->u.PMItem.szTitle); 

len = Istrlen(szCaptionBuf); 

break; 

case CON.MACRO: 
/* Macro name 

7 

lstrcpy{szCaptionBuf, (pciLast->u.pMacro)->szName); 

len = Istrlen(szCaptionBuf); 

break; 

default: retum(O); 

} 

/* Chop out the ampersands (&) and tabs. 

7 

if (len) 

len = StringClip(szCaptionBuf); 

else 

*szCaptionBuf = '\0'; 

if (len > iCaptionLen) 

iCaptionLen = len; 

#ifdef DEBUG_DLG 

/* Pack debug info 

7 

if (DebugRag & DEBUG ContFull) 
{ 

len = ContextPakDebugO; 

if (len > iCaptionLen) iCaptionLen = len; 

} 



#endif 



/* Return length of the string 

7 

return (ten); 

} 



/* 

( FUNCTION BOOL ContextCheck(bPrefChange) 

| DESCRIPTION Hook the context window to the status window. 

I PARAMETERS BOOL bPrefChange - Rebuild list anyway 

| RETURN TRUE = A change in the context ? 

| NOTE This is called every so often to check for context changes. 
I Watch for the change in focus thru the hook routines ? 

| Menus donl change the focus ! we must watch messages for them ! 

| When we select an icon the focus = null the active window is icon. 

7 

BOOL ContextCheck(BOOL bPrefChange) 
{ 

int checktype; 
int changetype; 
unsigned PrevCheckSum; 

changetype = HookGet_Change(); 

/* Does anything change ? 
7 

if (changetype == HCHANGE_NONE && ! bPrefChange) 
retum(FALSE); 

/* Set up to enumerate the windows. 

7 

if (IpprocContext — NULL) 
{ 

IpprocContext = MakeProclnstance(ContextEnumProc, VChlnst); 

} 

/* First we check context save options (when old focus valid). 
7 

if (GetWindowTask(GetActiveWindowO) == GetCurrentTaskO) 
{ 

if (IsWindow(hwndFocus) && (i Istconic(hwndActive) || hwndActive 

hwndFocus)) 

{ 

I* Context still good for now, but we need to check preferences 

7 



if (! bPrefChange) 

{ 

return(FALSE); 

} 

} 

else 

{ 

/* We cannot find our active window. 

*• Don't look to it. 

7 

hwndFocus = 0; 

} 

} 

else 
{ 

/* Who is active now. 
*/ 

hwndActive = GetActiveWindowO; 

/* Who has focus right now. 
7 

hwndFocus = GetFocusO; 

/* We should start 
*/ 

if (! hwndFocus) 

hwndFocus = hwndActive; 

} 

r 

** restart the context list. 
7 

PrevCheckSum = iCheckSum; /* Save the previous to compare. 7 
ContextListlnitO; 

/* 

** Check for a pop up menu active. 
** ALWAYS highest focus pnority. 
7 

ContextAddPopupMenuO; 

if (hwndFocus) 
{ 

I* 

** Get those windows that are children of the current focus. 
** NOTE: Items in the immediate focus should be on top ! 
** Move up the hierarchy to the modal level or the non WS_CHILO ? 

7 

hwndParent = hwndFocus; 
hwndPrvParent = NULL; 
checktype = 0; 



while (hwndParent != NULL) 



{ 

if (! IsWindowEnabled(hwndParent)) /• The previous was top. v 
break; 

if (! Islconic(hwndParent)) 
{ 

EnumChildWindows(hwrtdParent, IpprocContext, checktype); 
iGroupLevei ++; 

} 

r 

** Store the parent level. (May not be a real option ) 
*/ 

ContextAddWind(hwndParent, CW_HASFOCUS j checktype); 
hwndPrvParent = hwndParent; /* Don't duplicate in siblings. 7 
iGroupLevei ++; 

checktype = CW_PARENTLEVEL; 

r 

** Break after Active window 
7 

if (hwndParent == hwndActive) 
{ 

break; 

} 

r 

** Does it have a parent ? 
7 

hwndParent = GetParent(hwndParent); 

} 

} 

r 

** Get other applications, except if someone above is system modal. 
** WS OVERLAPPED and WS POPUP type windows. 

7 

EnumWindows(lpprocContext, 0); 

ContextAdd(NULL, 0); /* Checksum the last. 7 

retum(PrevCheckSum != iCheckSum || changetype > HCHANGE_POSSIBLE); 

} 

r- 

I 

I FUNCTION void ContextListAdd(void) 

I 

| DESCRIPTION Build a list of siblings and children. 

I 

| PARAMETERS None. 

I 

| RETURN None. 

I 



7 

void ContextListAdd(void) 

{ 

int len; 

int (Entry = 0; 

ContextCheck(FALSE); /* One final check before packing. 7 

iCaptionLen =13; /* Minimum size. 7 

#ifdef DEBUG_DLG 

iDebugCapLen = 0; 

#endif 

for (pciLast = pciFirst; pciLast != NULL; pciLast = pciLast->pciNext, iEntry ++) 

{ 

len = ContextPakO; 
if (! len) continue; 

/* Send a message adding the window caption to the list 
** in the dialog. 

7 

if (! PhraseListAdd(szCaptionBuf. iEntry)) break; 

} 

#ifdef DEBUG.DLG 

/* Set the tabs and columns. 

7 

if (DebugFlag & DEBUG_ContFull) 

{ 

ContextTabs[0] = (iCaptionLen + 4) * 1 0; 
ContextTabs{1] = (iCaptionLen + 12) * 10; 
ContextTabs[2] = iCaptionLen + 16 + iDebugCapLen; 

} 

#endif 

} 

/• 

| FUNCTION void ContextListSelect(iEntry) 

| DESCRIPTION The user selected a word from the list. 

| Take some default MACRO action based on the context type 

| PARAMETERS int iEntry - Specifies numer of list item; 

| RETURN None. 

7 

void ContextListSetect(tnt iEntry) 
{ 

HWND hwnd; 
MACRO macro; 



if (iEntry < 0) return; 
r 

** Find the window in the list. 
*/ 

for (pciLast = pciFirst; iEntry; iEntry --) 
{ 

if (pciLast == NULL) 

return; r THIS SHOULD NEVER HAPPEN */ 
pciLast = pciLast->pciNext; 

} 

hwnd = pciLast->hwnd; 

/* We keep focus and it valid. 
•/ 

if (GetWindowTask(GetActiveWindowO) == GetCurrentTaskO) 
SetFocus(hwndFocus); 

} 

/* Default macros are to be executed on hwnd, 
*/ 

macro. szWndClass = NULL; 
macro.szDesc = NULL; 
macro.pNext = NULL; 

switch (pciLast->conType) { 

case CON_SYSCOM: 

r A system command from the system command menu to the window 
** PostMessage(hwnd, WM_SYSCOMMAND, iEntry, NULL); 

macro.cmdType = CMD_SYSTEM; 
macro.Cmd.System.wCmd = pciLast->u.SysCom; 
break; 



case CON_SCROLL: 
/* PostMessage 
*/ 

macro.cmdType = CMD_MESSAGE; 
macro.Cmd.Msg.wMsg = (pdLast->u.ScrlCom & SCRLS HORZ) ? 
WM_HSCROLL : WM_VSCROLL; 

macro.Cmd.Msg.wParam = pciLast->u.ScriCom & SCRLS_ACT; 

if (pciLast->u.ScrlCom & SCRLS WIN) 
{ 

macro.Cmd.Msg.lParam = MAKELONG(0, hwnd); 
hwnd = GetParent(hwnd); 

} 

else 
{ 

macro.Cmd.Msg.lParam = 0L; 

} 

break; 



case CONJCON: 

/* Restore the iconic window. 
- NOTE: 

** Iconic windows donl get focus, they just activate. 
** Openlcon(hwnd); 

7 

macro.cmdType = CMD_SYSTEM; 
macro.Cmd.System.wCmd = SC_RESTORE, 
break; 



case CONJA/IND: 

if ((pciLast->u.Window.cwc =- CWC_STATIC) || (pciLast- 
>u.Window.cwc == CWC GROUPBOX)) 
{ 

GetWindowText(hwnd, szCaptionBuf, sizeof(szCaptionBuf) - 1), 
macro.cmdType = CMD_KEY; 
macro.Cmd.Key.cKey = (char) 
VkKeyScan(StringGetSysChar(szCaptionBuf}); 

macro.Cmd.Key.AltPressed = (BYTE) 1 ; 
macro.Cmd.Key.ShinPressed = (BYTE) 0; 
macro.Cmd.Key.CtriPressed = (BYTE) 0; 



} 

else 
{ 



} 

break; 



/* Choose the window as the current window. For top level 

** will result in their being activated. For items in dialog boxes 
** this will result in their being selected. 

7 

macro.cmdType = CMD_SELECT, 



case CON_MENUPOPUP: 

/* An item on the windows menu bar. 
** Pull down the popup menu. 
7 

macro.cmdType = CMD_MENUPOPUP; 
macro.Cmd.MenuPopup.iKeyPos = pciLast->u.MenuPop.iKeyPos; 

if (GetMenu(hwnd) == pciLast->u.MenuPop.hMenu) 
macro.Cmd.MenuPopup.wLevel = 0; 

else 

macro.Cmd.MenuPopup.wLevel = 1 ; 

break; 



case CON.MENU: 

/* A menu item in the active menu. 
** Execute the menu item. 

** PostMessage(hwnd, WM.COMMAND, iEntry, NULL); 
7 



if (hwndMenuSysPop) 
{ 

/* Menu rtem chosen from system menu. 
7 

macro.cmdType = CMD_SYSTEM; 
macro.Cmd.System.wCmd = pciLast->u.Menu.id; 

} 

else 
{ 

/* Menu rtem chosen from the menu bar. 

7 

macro.cmdType = CMD_MENU; 
macro.Cmd.Menu.id = pciLast->u.Menu.id; 

} 

break; 

case CON_ACCEL 

/* Accelerator key 

7 

macro.cmdType = CMD_MENU; 
macro.Cmd.Menu.id = pciLast->u.Acc.id; 
break; 

case CON_LAUNCH: 
/* Just execute 

7 

macro.cmdType 
macro. szDesc 
break; 

case CONJ/IACRO: 

macro.cmdType = pciLast->u.pMacro->cmdType; 
macro.Cmd = pciLast->u.pMacro->Cmd; 
macro.itemid = pciLast->u.pMacro->itemid; 
macro.szDesc = pciLast->u.pMacro->szDesc; 
break; 

default : 

return; 

} 



= CMD_LAUNCH; 
= pciLast->u.PMItem.szFile; 



VCM_Execute(&macro, hwnd); 



* File: HOOK.C 

* Moduie for Hooking Window's queue and tracking relevant messages. 

* Interface functions: HookGet_Change 

* HookGet_Menu 
HookGetJ/enuAtLevel 
HookGet_MenuLevel 
HookGetJ/lenuWnd 
Hooklnstall 
HookJoumalBusy 
HookFreeJournal 
Record 

* Exported functions: HookMain 

HookGetMsgProc 

* HookSndMsgProc 
PlayProc 
RecProc 

* Private functions: HookMenuClear 

* HookMessage 
PlayNotify 
RecNotify 



#include <windows.h> 
#include "vtools.h" 

typedef struct 

{ // Another message type 

DWORD IParam; /* This was backwards before ? */ 

WORD wParam; 
WORD wMsg; 
HWND hWnd; 

} CALLWNDPROC; /* NOTE: Parameters are oposite of LPMSG ? 7 

typedef CALLWNDPROC FAR *LPCALLWNDPROC; 

r 

I 

I Module local variables. 

I 

7 

HANDLE hlnst; // instance Handle given in LibMainO 

HHOOK hGetMsgHook; // Handle to the getmessage hook 
HHOOK hSndMsgHook; // Handle to the callwndproc hook 
HHOOK hJournalHook; // Current journal record/playback hook function 

/* 

i 

| — Variables for Playback — 

I 



static LPRECORD IpJmlList; // Handle to the list of journal events 
Static BOOL bJoumalBusy; // Is the DLL busy recording or playing back? 
static DWORD dwInitPlaybackTime; // Initial time of Playback) can 
static short sPlaybackSpeed; // Speed given to PlaybackO (0 or -1 ) 
static DWORD dwPrevMsgTime; // Time of previously played back event 

static HWND hWndNotify; 
static UINT wMsgNotify; 
static UINT wStopKey; 
static UINT wMouRec; 

r 

I 

| — Context manager tracking. -- 

I 

•/ 

static int Hook.Change; /* context change type. 7 

static HWND Hook_MenuhWnd; /* The window owning the menu. 7 

static int HookJvlenuLevel; /* The menu stack level. -1=none */ 
static HMENU Hook_MenuSelect; /" Selected item from the current level. 7 

static enum 
{ 

r 

** If we are tracking a multi message operation. 
•/ 

HT_NONE, /* Watch for nothing. 7 
HT_ACCEL, /* Watch for an accelerator key press. 7 
} Hook_Track; 

#define MENUSTACKQTY 6 /* How many sub levels to store. 7 

static HMENU Hook_MenuStack[MENUSTACKQTY]; /* currently active menu. 7 



j FUNCTION int CALLBACK HookMain(hinst, wDataSeg, wHeapSize, IpszCmdLine) 

| DESCRIPTION Part of the LibMain that belongs to the hook system. 

| PARAMETERS HINSTANCE hinst - Identifies the instance of the DLL. 

| WORDwDataSeg - Specifies the value of the data 

| segment (DS) register. 

j WORD wHeapSize - Specifies the size of the heap defined 

| in the module-definition file. 

| LPSTR IpszCmdLine - Points to a null-terminated string 

j specifying command-line information. 

| RETURN 1 if it is successful. Otherwise, it should return 0. 

7 

int CALLBACK HookMain(HINSTANCE hinst, WORD wDataSeg, WORD wHeapSize, LPSTR 
IpszCmdLine) 



hlnst = hinst; 
bJournalBusy = FALSE; 
hGetMsgHook = NULL; 
hSndMsgHook = NULL; 

Hook_Change = HCHANGE_NONE; 
Hook_MenuLevel = -1; 
Hook_Track = HT_NONE; 

return (TRUE); 

} 



| FUNCTION int WINAPI HookGet_Change<void) 

i DESCRIPTION Has part of the context changed. 

j Because looking for changes is not an exact science we know some 

j events are always a change and some are just possible. 

| Keep 2 flags. 

| PARAMETERS None. 

j RETURN Hook change status. 

7 

int WINAPI HookGet Change(void) 
{ 

int Prev; 

Prev = Hook_Change; 
Hook_Change = HCHANGE_NONE; 

return(Prev); 

} 

/« 

| FUNCTION HMENU WINAPI HookGet_Menu(levei) 

| DESCRIPTION Return the handle to the current popped up menu. 

| PARAMETERS int level - the inverse of the menu stack level. 0=top-most 

| RETURN NULL - no menu is popped up 

7 

HMENU WINAPI HookGet Menu(int level) 
{ 

if (level > Hook_MenuLevei) retum(NULL); 
retum(Hook_MenuStack(Hook MenuLevel - level]); 

} 



I FUNCTION • HMENU WINAPI HookGet_MenuAtLevel(levei) 

I 

I DESCRIPTION Return the handle to the menu at the given level. 

I 

1 PARAMETERS int level - the menu stack level. 0=top-most 

I 

i RETURN NULL = no menu is popped up. 

I 

7 

HMENU WINAPI HookGet MenuAtLeve!(int level) 
{ 

if (level > HookJvlenuLevel) retum(NULL); 
return(Hook_MenuStack[levell); 

} 

/* 

I FUNCTION int WINAPI HookGet_MenuLevelO 
I DESCRIPTION Return the menu level. 
| PARAMETERS None. 

I RETURN The menu level : NULL = no menu is popped up. 

7 

int WINAPI HookGet_MenuLevelO 

{ 

return(Hook_MenuLevel); 

} 

r 

I FUNCTION HWND WINAPI HookGet_MenuWnd(void) 

I DESCRIPTION Returns the owner of the popped up window. 
I Only valid if there IS a popped up menu ! 

| PARAMETERS None. 

| RETURN Handle to the window. 

7 

HWND WINAPI HookGet MenuWnd(void) 
{ 

return (Hook_MenuhWnd); 

} 

/* 



FUNCTION static void HookMenuClear(void) 
DESCRIPTION Clear menu toggles. 



I PARAMETERS None. 

I 

| RETURN None. 



static void HookMenuClear(void) 

{ 

if (Hook_MenuLevel « -1) return; 

Hook_MenuLevel = -1 ; /* No popup menu. 7 

Hook Change |= HCHANGE DEFINATE; 

} 



| FUNCTION static void PASCAL HookMessage(hWnd, wMsg, wParam, IParam) 

| DESCRIPTION Check for common context indication messages. 

| Use command message checker for PostMessage and SendMessage 

j because we never really know which wilt be used. 

| PARAMETERS HWND hWnd - Specifies the handle of the window 

I UINT wMsg - Specifies the message 

| WORD wParam - Specifies 1 6 bits of additional 

I message-dependent information 

| LONG IParam - Specifies 1 6 bits of additional 

j message-dependent information 

| RETURN None. 

7 

static void PASCAL HookMessage(HWND hWnd, UINT wMsg, WORD wParam, LONG IParam) 
{ 

switch (wMsg) 
{ 

t* 

** Menu level tracking. 

7 

case WMJNITMENU: 

r 

** The bottom level menu is initialized. 
7 

Hook_MenuhWnd = hWnd; 
Hook MenuLevel =-1; 
HookJvlenuSelect = NULL; 
Hook Track = HT NONE; 
Hook_Change |= HCHANGE_DEFINATE; 
break; 



case WMJNITMENUPOPUP: 

r 

** The menu will pop up onto the screen. 

** NOTE: The context manager needs this to tell if a menu is up. 



7 

if (Hook MenuSelect == wParam) 

{ 

if (Hook_MenuLevel >= MENUSTACKQTY-1 ) break- /• 

SORRY 7 

Hook MenuLevel ++; 

} 

else 

{ 

/* 

** NOTE: 

** Of the Popup is initialized without having selected it 
** then it is not a normal menu popup ? What do i do ? 
** NOTE: 

** This works for custom popups. 

7 

Hook_MenuLevel = 0; /* Don't know where this is from ? 

7 

Hook Track = HT ACCEL; 

} 

Hook_MenuSelect = NULL; 

Hook MenuStack[Hook MenuLevel] = wParam; 

HooklChange |= HCHANGE_DEFINATE; 

break; 

caseWM MENUSELECT: 
/* 

** Watch for the pop up menu being removed. 
** or the select being moved. 
** wParam = the item seelcted, (handle if popup) 
** HIWORD(IParam) = our parent. 

7 

if (wParam == 0 && IParam == OxFFFFL) 
{ 

HookMenuClearO; 
break; 

} 

if (Hook MenuLevel ==-1) 
{ 

Hook_MenuStack[++ Hook MenuLevel] = HiWORD(IParam); 
Hook Change |= HCHANGE DEFINATE; 

} 

else 
{ 

if (HIWORD(IParam) == Hook MenuSelect) 
{ 

r 

** NOTE: 

** This occurs if the menu select is moved back to the 

parent- 

** But the child is left on the screen ? 

7 

Hook MenuLevel ++; I* same as 

last. 7 



Hook Change |= HCHANGE DEFINATE; 

} 

eise 

{ 

while (Hook MenuLevel > 0) 

{ 

if (HIWORD(IParam) == 

Hook_MenuStack[Hook_Menui_evel]) 

break; 
Hook_MenuLevel -; 

Hook_Change |= HCHANGE DEFINATE, 

} 

} 

} 

Hook_Track = HT_NONE; 
Hook~MenuSelect = wParam; 
break; 



case WM_SYSCOMMAND: 
/* 

** Check for the window being maximized, minimized or restored. 
7 

switch (wParam) 

{ 

case SC MAXIMIZE : 
case SC_MINIMIZE : 
case SCJRESTORE : 

Hook_Change |= HCHANGEJDEFINATE; 

break; 

} 

case WM_COMMAND: 

r 

** Clear the menu if present. 

** NOTE: Accelerator keys only exit with a WM_COMMAND 

7 

if (Hook_Track == HT_ACCEL) 
HookMenuClearO; 

break; 

case WM_ACTIVATEAPP: 

r 

" We are changing applications. 
•/ 

Hook_Change |= HCHANGE_TASK; 
break; 

case WM_ACTIVATE: 
/* 

** The window activation is changing, similar to focus. 
7 

case WM SETFOCUS: 
caseWM KILLFOCUS: 

r 



** The focus is changing. 
*/ 

Hook_Change |= HCHANGE_POSSIBLE; 
break; 

caseWM SETTEXT. 
/* 

** Some text is being set to a window or control. 
** Most likely it is a change. 

7 

Hook_Change )= HCHANGE_DEFINATE; 
break; 

caseWM SHOWWINDOW: 

Hook.Change |= HCHANGE_DEFINATE; 
break; 

case WM_CREATE: 
r~ 

** The window is created. 
*/ 

case WM_PAINT: 
caseWM NCPAINT. 
caseWM NCCALCSI2E: 
caseWM CTLCOLOR: 
caseWM ENTERIDLE: 

r 

** NOTE, it couid be (Not necesssary) a change. 

7 

Hook.Change |= HCHANGE_POSSIBLE; 
break; 

} 

} 



FUNCTION DWORD CALLBACK HookGetMsgProc(nCode, wParam, IpMsg) 

DESCRIPTION The HookGetMsgProc function is a callback function that 
the system calls whenever the GetMessage function has 
retrieved a message from an application queue. 
The system passes the retrieved message to the callback 
function before passing the 
message to the destination window procedure. 

PARAMETERS int nCode - Specifies whether the callback function 
should process the message or call the 
CallNextHookEx function. If this parameter is 
less than zero, the callback function should 
pass the message to CallNextHookEx without 
further processing. 
WORD wParam - Specifies a NULL value. 
LPMSG IpMsg - Points to an MSG structure that contains 
information about the message. 



I RETURN The callback function should return zero. 

I 

7 

DWORD CALLBACK HookGetMsgProc(int nCode, WORD wParam, LPMSG IpMsg) 

if (nCode == HC_ACTION) 

{ 

HookMessage(!pMsg->hwnd, lpMsg->message, lpMsg->wParam, IpMsg- 

>IParam); 

if (lpMsg->message == WM MOUSEMOVE) 

{ 

IpMsgowParam &= ~MK MBUTTON; 

} 

} 

return CallNextHookEx(hGetMsgHook, nCode, wParam, (LONG)lpMsg)- 

} 

/* 

| FUNCTION DWORD CALLBACK HookSndMsgProc(nCode, wParam, IpMsg) 

| DESCRIPTION Hooks all SendMessage calls. 

I PARAMETERS int nCode -Specifies whether the callback function 

| should process the message or call the 

j CallNextHookEx function. If this parameter 

I is less than zero, the callback function 

I should pass the message to CallNextHookEx 

| without further processing. 

I WORD wParam -Specifies whether the message is sent by 

I the current task. This parameter is 

I nonzeroif the message is sent; 

| otherw ise, it is NULL. 

| LPCALLWNDPROC IpMsg -Points to a structure that contains 
I details about the message. 

| RETURN The callback function should return zero. 

7 

DWORD CALLBACK HookSndMsgProc(int nCode, WORD wParam, LPCALLWNDPROC IpMsg) 
{ 

if(nCode == HC_ACTION) 

{ 

HookMessage(lpMsg->hWnd, lpMsg->wMsg, lpMsg->wParam, IpMsg-XParam); 

} 

return CallNextHookEx(hSndMsgHook, nCode, wParam, (LONG)lpMsg); 

} 

/* 

| FUNCTION void WINAPI Hooklnstall(flnstall) 

I DESCRIPTION Set up all neccessary hooking code to view all messages. 



PARAMETERS BOOL flnstall - Specifies install/uninstall toggle. 



I RETURN "None. 



void WINAPI Hooklnstal!(BOOL flnstall) 
{ 

if (flnstall) 

{ // Install only if there isn't already a hook installed 

r 

** Install hook for posted messages. 
•/ 

if (IhGetMsgHook) 

hGetMsgHook = SetWindowsHookEx(WH GETMESSAGE, 
(FARPROC)HookGetMsgProc, hlnst, NULL); 

/* 

** Install hook for sent messages. 
*/ 

if (! hSndMsgHook) 

hSndMsgHook = SetWindowsHookEx(WH CALLWNDPROC, 
(FARPROC)HookSndMsgProc, hlnst, NULL); 
} 

else 
{ 

UnhookWindowsHookEx(hGetMsgHook); 
UnhookWindowsHookEx(hSndMsgHook); 
hGetMsgHook = NULL; 
hSndMsgHook = NULL; 

} 

} 

/*. 

| FUNCTION BOOL WINAPI HookJournalBusy(void) 

| DESCRIPTION Return whether or not the DLL has a journal hook already 
| installed 

| PARAMETERS None. 

| RETURN TRUE if journal busy. 

*/ 

BOOL WINAPI HookJournalBusy(void) 

{ 

return bJoumalBusy; // Is journal playback active? 

} 

r 

I 

j FUNCTION static void PlayNotify(void) 

I 

| DESCRIPTION Notify about end of playyback. 

I 

| PARAMETERS None. 

I 



I RETURN None. 

I 

*/ 

static void PlayNotify(void) 
{ 

if (hWndNotify) 

{ 

SendMessage(hWndNotify, wMsgNotify, 0, 0L); 

} 

} 

r 

I FUNCTION DWORD CALLBACK PlayProc(nCode, wParam, IpMsg) 

I DESCRIPTION The PlayProc function is a callback function that 

I a library can use to insert mouse and keyboard messages into 

I the system message queue. 

j PARAMETERS int nCode - Specifies whether the callback function 

j should process the message or call the 

! CallNextHookEx function. If this parameter 

j is less than zero, the callback function 

j should pass the message to CallNextHookEx 

j without further processing. * 

j WORD wParam - Specifies a NULL value. 

| LPEVENTMSG IpMsg - Points to an EVENTMSG structure that 

j represents the message being processed 

j by the callback function. 

I RETURN The callback function should return a value that represents 

j the amount of time, in clock ticks, that the system should 

I wait before processing the message. This value can be computed 

I by calculating the difference between the time members of the 

j current and previous input messages. If the function returns 

j zero, the message is processed immediately. 

*/ 

DWORD CALLBACK PlayProc(int nCode, WORD wParam, LPEVENTMSG IpMsg) 
{ 

DWORD dwRetcode = NULL; 
BOOL bCallNext = TRUE; 
LPRECORD IpLiSt; 

switch (nCode) 
{ 

case HC_SKIP : 

/7see if we are all done playing back 
if (HpJrnlList) 
{ 

//OutputDebugStringfHC.SKlP - Next event is NULL so we're all done.\n"); 

UnhookWindowsHookEx(hJoumalHook); 

PlayNotifyO; 

bJournalBusy = FALSE; 



// if (IwNumEvents) 

// OutputDebugStringf Played the number of events recorded.\n")- 
} 

else { 

// wNumEvents--; 

IpList = lpJmlList->pNext; 
Gfree(lpJmlList); 
IpJrnlList = IpList; 

} 

bCallNext = FALSE; 
break; 



case HCJ3ETNEXT : 

// Loclc and playback this member of the list. 

if (IpJmiList) 
{ 

lpMsg->message = lpJmiList->msg.message; 
lpMsg->paramL = lpJmlList->msg.paramL; 
lpMsg->paramH = lpJrnlList->msg.paramH; 

switch (sPlaybackSpeed) 

{ 

case -1 : V/ Full Speed 

lpMsg->time = GetTickCountO; 
dwRetcode = dwInitPlaybackTime - 

GetTickCountO + GetDoubleClickTimeO + 1; 

if ((long)dwRetcode < 0) // if time has gone by 

return 

dwRetcode = 0; 
// 0 for the wait time, 
break; 

default . 

case 0 : // Original Speed 

lpMsg->time = lpJrnlList->msg.time + 

dwInitPlaybackTime; 

dwRetcode = lpMsg->time - GetTickCountO; 
if ((signed long)dwRetcode < 0) // if time has 

gone by return 

dwRetcode - 0; 
// 0 for the wait time, 
break; 

} 

} 

bCallNext = FALSE; 
break; 



case HC.SYSMODALON : 

// A system modal dialog box has appeared. 
// Something bad must have happened. 



// Free ail remaining event structures and unhook. 

// Should some sort of error message be displayed to the user when 
// we receive the HC_SYSMODALOFF to say that we stopped playback? 

while (IpJmlList) 
{ 

IpList = lpJmlList->pNext; 
Gfree(lpJmlList); 
IpJrntList = IpUst; 

} 

UnhookWindowsHookEx(hJoumalHook); 

PlayNotifyO: 

bJournalBusy = FALSE; 

break; 

default : 

break; 

} 

if (bCallNext) 

{ 

dwRetcode = CallNextHookEx(hJoumalHook, nCode, wParam, (LONG)lpMsg); 

} 

return dwRetcode; 

} 



| FUNCTION void WINAPI Playback(hWnd, wMsg, sSpeed, IpList) 

j DESCRIPTION Journal Playback Function 

| PARAMETERS HWND hWnd - Specifies handle to the window 

j to send notification to. 

I UINT wMsg - Specifies notification messasge. 

j short sSpeed - Specifies speed of playback. 

j LPRECORD IpList - Specifies pointer to the events list. 

| RETURN None. 

*/ 

void WINAPI P!ayback(HWND hWnd, UINT wMsg, short sSpeed, LPRECORD IpList) 
{ 

if (bJournalBusy) 
return; 

if (IpList == NULL) 
return; 

hWndNotify = hWnd; 
wMsgNotify = wMsg; 
bJournalBusy = TRUE; 



ipJrnlList = IpList; 
sPlaybackSpeed ~ sSpeed; 



dwInitPlaybackTime = GetTickCountO; 
dwPrevMsgTime = dwInitPlaybackTime; 

hJournalHook = SetWindowsHookEx(WH JOURNALPLAYBACK, (FARPROC)PlayProc 
hlnst. NULL); 

return; 



I 

j FUNCTION void WINAPI HookFreeJournal(void) 

I 

! DESCRIPTION Release journal hook. 

I 

! PARAMETERS None. 

I 

j RETURN None. 



void WINAPI HookFreeJoumal(void) 
{ 

if (hJournalHook) 
{ 

UnhookWindowsHookEx(hJournalHook); 
bJoumalBusy - FALSE; 
hJournalHook = NULL; 

} 

} 

r 

I 

I FUNCTION static void RecNotify(void) 

I 

| DESCRIPTION Notify about end of recording. 

I 

| PARAMETERS None. 

I 

| RETURN None. 



static void RecNotify(void) 

{ 

LPRECORD IpList; 
DWORD dwFirstTime; 

// reset the time field in ail of these 
if (IpJrnlList) 

dwFirstTime = lpJmlList->msg.time; 

IpList = IpJrnlList; 



while (IpList != NULL) 
{ 

lpList->msg.time -= dwFirstTime; 
IpList = lpList->pNext; 

} 

SendMessage(riWndNotify, wMsgNotify, 0, (LONG)lpJrnlList); 



FUNCTION DWORD CALLBACK RecProc(nCode, wParam, IParam) 

DESCRIPTION The RecProc function is a callback function that records 

messages that the system removes from the system message queue. 

PARAMETERS intnCode - Specifies whether the callback function 
should process the message or call the 
CallNextHookEx function. If this parameter 
is less than zero, the callback function 
should pass the message to CallNextHookEx 
without further processing. 

WORD wParam - Specifies a NULL value. 

LONG IParam - Points to an EVENTMSG structure that 
represents the message being processed 
by the callback function. 

RETURN The callback function should return zero. 



DWORD CALLBACK RecProc(int nCode, WORD wParam, LONG IParam) 
{ 

static LPRECORD IpPrevList; // Handle to prev recorded event 

static WORD wNumEvents; // ** number of events recorded ** for testing 

static BOOL bPause = FALSE; 

LPRECORD IpList; 

LPEVENTMSG IpEvent; 

BOOL bCallNext = TRUE; 

DWORD dwRetcode = 0; 

DWORD dwTime; 



switch (nCode) 
{ 

case HC_ACTION : 
if(bPause) 

{ 

break; 

} 

dwTime = GetTickCountO; 
IpEvent = (LPEVENTMSG) IParam; 

if <lpEvent->message WM.KEYDOWN && LOBYTE(lpEvent- 
>paramL) == wStopKey) 

{ 



HookFreeJoumalO; 

RecNotifyO; 

break; 

} 

if (lpEvent->message WM_MOUSEFIRST && lpEvent->message 

WM_MOUSELAST) 

{ 

if (wMouRec == RECJvlOUtGNORE) 

{ 

break; 

} 

else if (wMouRec == REC MOUCLICK && IpEvent- 
>message == WM_MOUSEMOVE) 

{ 

break; 

} 

} 

// Allocate the next member (zeroinit it so hNext field doesn't 

// have to be explicitly set to zero) 

IpList = Gmalloc((DWORD) sizeof(RECORD)); 

if (IpList ~ NULL) 
{ 

HookFreeJoumalO; 

RecNotifyO; 

break; 

} 

// Update the previous member to point to this new one. 
if (IpJmlList == NULL) 
{ // It's the first one 

wNumEvents = 0; 

IpJmlList = IpList; 

} 

else 
{ 

lpPrevList->pNext = IpList; 

} 

IpPrevList = IpList; 

// Store the message in the new one 

lpList->msg = IpEvent; 
lpList->msg.time = dwTime; 
break; 

case HC_SYSMODALON: 
bPause = TRUE; 
break; 

caseHC SYSMODALOFF: 
bCallNext = FALSE; 
bPause = FALSE; 
HookFreeJoumalO; 
RecNotifyO; 
break; 



* default : 

break; 

} 

if (bCallNext) { 

dwRetcode = CallNextHookEx^JournalHook, nCode, wParam, IParam); 
return dwRetcode; 

} 

/* 

i FUNCTION void WINAPI Record(hWnd, wMsg, wKey, wMou) 
j DESCRIPTION Journal Record Function 

| PARAMETERS HWND hWnd - Specifies handle to the window 

j to send notification to. 

j UINT wMsg - Specifies notification messasge. 

j UINT wKey - Specifies stop key VK_ value. 

I UINT wMou - Specifies type of mouse events that 

j should be recorded. 

| RETURN None. 

7 

void WINAPI Record(HWND hWnd, UINT wMsg, UINT wKey, UINT wMou) 

{ 

if (bJoumalBusy) 
return; 

hWndNotify = hWnd; 
wMsgNotify = wMsg; 
wStopKey = wKey; 
wMouRec = wMou; 
IpJrnlList = NULL; 

hJournalHook = SetWindowsHookEx(WH JOURNALRECORD, (FARPROC)RecProc, 
hlnst, NULL); 

if (hJournalHook) 

bJoumalBusy * TRUE; 

} 



else • 

{ 

switch (iScrtCom & SCRLS_ACT) 
{ 

case SBJJNEUP: 
/* line up 
•/ 

idWord = IDWJ.1NEUP; 
break; 
case SB_L1NED0WN: 
/* line down 
*/ 

idWord = IDWJJNEDOWN; 
break; 
case SB_PAGEUP: 
/* page up 

7 

idWord = IDW_PAGEUP; 
break; 
case SB_PAGEDOWN: 
/* page down 

7 

idWord = IDW_PAGEDOWN; 
break; 

} 

} 

/* MDI frame is a spesial case 

7 

if (iScriCom & SCRLS MDI ) 
{ 

len = wsprintf( 

szCaptionBuf, "%s %s", 
(LPSTR) UserGetDefWord(l DW_MOI FRAME) , 
(LPSTR)UserGetDefWord(idWord)); 
} 

else 

{ 

lstrcpy(szCaptionBuf, UserGetDefWord(idWord)); 
len = Istrien(szCaptionBuf); 

} 

return(len); 

} 

#ifdef DEBUG DLG 



I 

1 FUNCTION _LOCAL int ContextPakWindDebug(hwnd) 

I 

| DESCRIPTION Get debug information for the given window. 

I 

| PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 



I RETURN Length of the caption text. 



_LOCAL int ContextPakWindDebug(HWNO hwnd) 
{ 

/* Now we can recieve text from EDIT 
*/ 

return((int) SendMessage(hwnd, WM GETTEXT, sizeof(SzCaptionBuf) - 1 
(LONG)(LPSTR)szCaptionBuf)); 

} 

/* 

I 

| FUNCTION J.OCAL int ContextPakDebug(void) 

I 

| DESCRIPTION Create debug string. 

i 

| PARAMETERS None. 

I 

| RETURN Length of the caption text. 



_LOCAL int ContextPakDebug(void) 

{ 

r ADO DEBUG INFO TO THE CONTEXT STRING 
•/ 

HWND hwnd = pciLast->hwnd; 
PSTR Str; 

int len = Istrien(szCaptionBuf); 
int lend; 

if (! len) 
{ 

switch (pcil_ast->conType) 

{ 

case CON_WIND: 
case CONJCON: 

/• Add window debuf info 

*/ 

len = ContextPakWindDebug(hwnd); 
break; 

default: 



} 

if (! len) 
{ 

r No text for this item 
*/ 

lstrcpy(szCaptionBuf, "<No Caption>"); 
len = istrlen(szCaptionBuf); 

} 



} 



/* Move start pointer 

7 

Str = szCaptionBuf + len; 

/* Show the handle and the parent handle for the related window. 
7 

lend = wsprintf(Str, "\t%1d %04X\t", pcil_ast->iLevel, hwnd); 
Str += lend; 

/* Add debug info to the string. 

7 

switch (pciLast->conType) 
{ 

case CON.WIND: 
case CONJCON: 

/* its a window or a control. 

7 

if (! hwnd) 

/* No associated window ? 

7 

break; 
/* Parent and owner 

7 

lend = wsprintf(Str, "%04X %Q4X GetParent(hwnd), GetWindow(hwnd, 

GW_OWNER)); 

/* Add the class name to it. 

7 

GetClassName(hwnd, Str+lend, MAXSTRING); 

/• Usefull properties 
7 

if (! IsWindowEnabled(hwnd)) 

lstrcat(Str, " <INACTIVE>"); 
else if (! IsWindowVisible(hwnd)) 

lstrcat(Str, " <INVISIBLE>"); 
else if (IsZoomed(hwnd)) 

lstrcat(Str, " <MAXIMIZED>"); 
else if (Islconic(hwnd)) 

lstrcat(Str, - <MINIMIZED>"); 
if (hwnd == GetActtveWindowO) 

lstrcat(Str, M <ACTIVE>"); 
if (hwnd == GetFocusO) 

lstrcat(Str, " ,<FOCUS>"); 

/* We need to return this 
7 

lend = Istrien(Str); 
break; 

case COM_SYSCOM: 

/* System commans 

7 

lend » wsprintf(Str, "<SYSTEM COMMAND %d>", pciLast->u.SysCom); 



break; 

case CON_MENUPOPUP: 

/* Popup menu properties 
*/ 

lend = wsprintf(Str, "%04x <POPUP MENU %d>", 

GetMenuState(pciLast->u.MenuPop.hMenu, pciLast- 

>u.MenuPop.iEntry, 

MF_BYPOSITION), pciLast->u.MenuPop.iEntry); 

break; 

case CON_MENU; 

/* Menu item properties 
*/ 

lend = wsprintf(Str, "<MENU ITEM %d>", pciLast->u.Menu.id); 
break; 

case CON_ACCEL: 

/* Accelerator 
*/ 

lend = wsprintf(Str, "<ACCELERATOR FOR %d>", paLast->u.Acc.id); 
break; 

case CON_LAUNCH: 

/* ProgMan launch command 
*/ 

lend = wsprintf(Str, "<%s>", (LPSTR)(pciLast->u.PMItem.szFiie)); 
break; 

case CON_MACRO; 
/* Macro 

7 

lend = wsprintf(Str, "<MACRO>"); 
break; 

} 

/" Calculate maximum length 

7 

if (lend > iDebugCapLen) 

iDebugCapLen = lend; 

return(len); 

} 

#endif 

/* 

I 

| FUNCTION LOCAL int ContextPak(void) 

I 

j DESCRIPTION Build a context string for the context block. 
| User pciLast to identify the object. 

I 

| PARAMETERS None. 

i 

| RETURN Length of the caption text. 



~ File: PLAYBACK. C 

" Functions for Macro Execution 

** Public functions: MakeHookReady 
** VCM_Execute 

** Private Functions : me_SingleCommand 
** me_Clk 
** me_Key 
** me_String 
** me Execute 



#define WIN31 // need this to use extended 3.1 functionality 

#include <windows.h> 

#include <shellapi.h> 
#include <ctype.h> 

#inciude "vtools.h" 
#inciude "vc.h" 

/* Private Function Prototypes 
•/ 

_LOCAL BOOL me_SingleCommand(LPMACRO, HWND); 

LOCAL BOOL me Clk(LPMACRO); 
_LOCAL BOOL me_Key(VCM_KEY KeyType); 
_LOCAL BOOL me_String(LPSTR Str); 
_LOCAL BOOL me_Execute(LPSTR Str); 

/* 

| FUNCTION BOOL MakeHookReady(void) 

| DESCRIPTION Wait until we finish playback. 

| PARAMETERS None. 

j RETURN TRUE if success. 

•/ 

BOOL MakeHookReady(void) 

{ 

MSG msg; 

while (HookJournalBusyO) 
{ 

if (PeekMessage(&msg, NULL, NULL, NULL, PM_REMOVE)) 
ProcessMessage(msg); 

} 



return TRUE; 

} 



| FUNCTION BOOL VCM_Execute(LPMACRO CmdPtr, HWND hGlobalWnd) 

I DESCRIPTION Processes the command encoded in the input 
I command struture. 

| PARAMETERS LPMACRO CmdPtr - Points to an list of MACRO elements. 
| HWND hGlobalWnd - Default window to send commands to. 

| RETURN TRUE if success. 

7 

BOOL VCM Execute(LPMACRO CmdPtr, HWND hGlobalWnd) 

{ 

WORD wErr, 
HWND hLocalWnd; 

/* Check for NULL pointers 

7 

if (CmdPtr == NULL) 
return 1 ; 

while (CmdPtr != NULL) 
{ 

/* use currently active win 
7 

if ((CmdPtr->cmdType == CMD_KEY) || 

(CmdPtr->cmdType ==CMD_TEXT) || 
(CmdPtr->cmdType == CMD_LAUNCH)) 
hLocalWnd = NULL; 

else 

hLocalWnd = hGlobaiWnd; 

/* Process a single command 
7 

if (wErr = me_SingleCommand(CmdPtr, hLocalWnd)) 
return wErr; 

r Get the next command 
V 

CmdPtr = CmdPtr->pNext; 

} 

return TRUE; 

} 



r 

| FUNCTION _LOCAL BOOL me_SingieCommand(LPMACRO CmdPtr, HWND hWnd) 
| DESCRIPTION Execute single macro command. 



I PARAMETERS LPMACRO CmdPtr - Points to an list of MACRO elements. 
I HWND hGlobaiWnd - Default window to send commands to. 

I 

| RETURN TRUE if success. 



_LOCAL BOOL me_SingleCommand(LPMACRO CmdPtr, HWND hWnd) 

RECT rect; 
POINT pt; 

BOOL bFoundlt; 
HMENU hMenu; 

WORD wTotai, wFlags, i, KeyPos; 
MACRO macro; 

WORD wKeyUp, wKeyDown; 
int iLevel; 

/* Was a specific window given or are we to assume that we should use 
** the currently active window? 

7 

if (! hWnd) 

hWnd = GetActiveWindowO; 

/* Make sure it is a valid window handle 

7 

if (! IsWindow(hWnd)) 
return FALSE; 

/* Was a class specified and if so was there also window text given. 
** Don't allow specification of window text without the window 
** class being given as well. 



/* Determine the type of command and process the command specific action. 
7 

switch (CmdPtr->cmdType) 

{ 

case CMD_MENU : 

/* Verify that the given window has a menu (do I need to bother w/this?) 
7 

if (!(hMenu = GetMenu(hWnd))) 

return FALSE; 
/* Check to make sure selection is available 
7 

i = GetMenuState(hMenu, CmdPtr->Cmd.Menu.id, MF_BYCOMMAND); 
if ((i & MF_DISABLED) || (i & MF_GRAYED) || (i == -1)) 
break; 

/* Clear the menus before the command is sent 

7 

iLevel = HookGet_MenuLevelO; 

while (iLevel- >= 0) 

{ 

PostMessage(hWnd, WM SYSKEYDOWN, VK ESCAPE, 0L), 
YieidO; 



} 

PostMessage(hWnd, WM_COMMAND, CmdRr->Cmd.Menu.id, OL); 
break; 

case CMDJvlENUPOPUP ■ 

/* Verify that the given window has a menu (do I need to bother w/this?) 
7 

if (! (hMenu = GetMenu(hWnd))) 

return FALSE; 
/* Test to see where the current menu hiiighting is. 
7 

hMenu = HookGet_MenuAtLevel(0); 

/* No menu up - Activate the Menu Bar 

7 

if (ihMenu) 
{ 

hMenu = GetMenu(hWnd); 

PostMessage(hWnd, WM_SYSCOMMAND, SC KEYMENU, 

OL); 

i = CmdPtr->Cmd.MenuPopup.iKeyPos; 

while (i--) 

{ 

PostMessage(hWnd, WM_SYSKEYDOWN, VK RIGHT, 

OL); 

YieldO; 

} 

/* Need to check to see if there really is a menu to pop up or 
** if it is a menu item on the menu bar that has no pulldown. 
7 

if ((i = GetMenultemlD(hMenu, CmdPtr- 
>Cmd.MenuPopup.iKeyPos)) != -1) 
{ 

iLevel = HookGet_MenuLevelO; 

while (iLevel- >=~Q) 

{ 

PostMessage(hWnd, WM_SYSKEYDOWN, 

VK ESCAPE, OL); 

YieidO; 

} 

PostMessage(hWnd, WM COMMAND, i, OL); 

} 

else 

PostMessage(hWnd, WM_SYSKEYDOWN, 

VK DOWN, OL); 

} 

/* It's a cascading popup 

7 

else 
{ 

r Pop "back" the menus to the correct level 

7 



whiie(HookGetJtfenu(CmdPtr->Cmd.MenuPopup.wLevel ♦ 1)) 

{ 

PostMessage(hWnd, WM_S YS KE YDO WN , 

VK.ESCAPE, OL); 

YieldO; 

} 

r Get the current position that is hilighted 
•/ 

hMenu = HookGet_MenuAtLevel(CmdPtr- 

>Cmd.MenuPopup.wLevel); 

wTotal = GetMenultemCount(hMenu); 

i = 0; 

KeyPos = 0; 

bFoundit = FALSE; 

while ((i < wTotal) && '.bFoundit) 

{ 

wFlags = GetMenuState(hMenu, i, MF BYPOSITiON); 
if (wFlags &MF HILITE) 
bFoundit = TRUE; 

else 

{ 

if ((wFlags & MF_POPUP) || (!(wFlags & 

MF_SEPARATOR))) 

KeyPos++; 

i++; 

} 

} 

I* Must take separators into account in position 

7 

i = KeyPos; 

if (CmdPtr->Cmd.MenuPopup.wLevel) 

{ 

wKeyUp = VK UP; 

wKeyDown = VK DOWN; 

} 

else 

{ 

wKeyUp = VKJ.EFT; 

wKeyDown = VK RIGHT; 

} 

if (i < (WORD)CmdPtr->Cmd.MenuPopup.iKeyPos) 
{ 

i = CmdPtr->Cmd.MenuPopup.iKeyPos - i; 

while (i») 

{ 

PostMessage<hWnd, WM_SYSKEYDOWN, 

wKeyDown, OL); 

} 

else 
{ 



I 



WM_SYSKEYDOWN, wKeyUp, OL); 



if (i > (WORD)CmdRr->Cmd.MenuPopup.iKeyPos) 



{ 



i = i - CmdRr->Cmd.MenuPopup.iKeyPos; 
while (H 



PostMessage(hWnd, 



} 

PostMessage(hWnd, WM_SYSKEYDOWN. VK_RETURN, OL); 

} 

break; 

case CMD_SYSTEM : 

if ((CmdRr->Cmd.System.wCmd ~ SC_KEYMENU) || (CmdRr- 
>Cmd.System.wCmd == SC_MOUSEMENU)) 
{ 

r Activating the system menu of an iconized window can't be 

done 

** with the normal syscommands and syskeys. 
** Using mouse commands works but it has the unpleasant side 

** of moving the pointer. Therefore this may not be an 

** solution. 
•/ 

if (GetParent(hWnd)) 

{ 

/* This combination seems to work in all cases except 
** the system menu of a child window in Excel that is 
7 

PostMessage(hWnd, WM_SYSCOMMAND, CmdRr- 
PostMessage(hWnd, WM.SYSKEYDOWN, 

} 

else 
{ 

PostMessage(hWnd, WM.SYSCOMMAND, 

SC KEYMENU, OL): 

PostMessage(hWnd, WM_S YSKEYDO WN , 

VK_SPACE, OL); 



effect 
acceptable 



for activating 
not maximized. 



>Cmd.System.wCmd, OL); 
VK_RETURN, OL); 



else 
{ 



iLevel = HookGet^MenuLevelO; 
while (iLevel- >=~b) 



PostMessage(hWnd, WM SYSKEYDOWN, 

VK ESCAPE, 'OL); 

YieidO; 

} 

PostMessage(hWnd, WM_SYSCOMMAND, CmdPtr- 

>Cmd.System.wCmd, OL); 

} 

break; 

case CMD_MESSAGE ; 

/* Just message to post 
•/ 

PostMessage(hWnd, CmdRr->Cmd.Msg.wMsg, CmdPtr- 
>Cmd.Msg.wParam, CmdPtr->Cmd.Msg.lParam); 
break; 

caseCMD SELECT: 

{ 

r Bring hWnd to the top and activate it. 
•/ 

POINT pt; 

int i; 

if (GetWindowLong(hWnd, GWL STYLE) & WS CHILD) 
{ 

SetFocus(hWnd); 
GetWindowRect(hWnd, &rect); 

pt.x = rect.left; 
pt.y = rect.top; 
for (i = 0; i < 5; i ++) 
{ 

if (WindowFromPoint(pt) == hWnd) 
break; 

pt.x ++; 
pt-y ++ ; 

} 

macro.cmdType = CMD_MOUSE; 
macro.pNext = NULL; 
macro.szWndClass = NULL; 
macro.szDesc = NULL; 
macro.Cmd.Mouse.mouType = MOU_LBCLK; 
macro.Cmd.Mouse.bPosType = VCM_MP_SCREEN; 
macro. Cmd. Mouse. wX = pt.x; 
macro.Cmd.Mouse.wY = pt.y; 
macro.Cmd.Mouse.CtrlPressed = 0; 
macro.Cmd.Mouse.ShiftPressed = 0; 
macro.Cmd.Mouse.AltPressed = 0; 



} 

else 
{ 



VCM_Execute(&macro, hWnd); 
Bri ng Wi ndowToTop(h Wnd) ; 



} 

break; 

} 



/* Mouse, Keyboard, and Journal Playback commands will all be handled via 
** a Journal Playback Hook. We still need to go through the window 
** checking above to make sure that if the events are to go to a specific 
** window that the window is there. 

7 

case CMDJvlOUSE : 

/* For all mouse commands, convert any client coordinates 
** to screen coordinates before proceeding further. 

7 

if (CmdPtr->Cmd.Mouse.bPosType == VCM_MP CLIENT) 

{ 

pt.x = CmdPtr->Cmd.Mouse.wX; 
pt.y = CmdRr->Cmd.Mouse.wY; 
CtientToScreen(hWnd, (LPPOINT) &pt); 
CmdPtr->Cmd.Mouse.wX - pt.x; 
CmdPtr->Cmd.Mouse.wY = pt.y; 
/* in case it's used later 
7 

CmdPtr->Cmd.Mouse.bPosType = VCM_MP_SCREEN; 

} 



(CmdPtr->Cmd.Mouse.mouType) 

case MOU_MOVE : 

/* Do moves need to be done via playback or is this 

7 

SetCursorPos(CmdPtr->Cmd.Mouse.wX, CmdPtr- 
break; 

r Is it necessary to set the focus for clicks and double clicks? 
7 

caseMOU LBDBLCLK: //Doubleclicks 
caseMOU RBDBLCLK: 
caseMOU MBDBLCLK. 
caseMOU LBCLK: // Single Clicks 
case MOU~RBCLK : 
case MOU_MBCLK : 

return (me_Clk(CmdRr)); 
break; 
} 

break; 



switch 
{ 



OK??? 

>Cmd.Mouse.wY); 



case CMD.KEY : 

/* May need more values passed in for the OEM scan code to be set. 
** Is it necessary to set the focus here before the key is sent? 



** if window is inconized or ALT is pressed then WM_SYSKEY 
•/ 

return (me_Key(CmdRr->Cmd.Key)); 

break; 
case CMD_TEXT : 

return (me_String(CmdPtr->szDesc)); 

break; 
case CMDJ.AUNCH : 

return (me_Execute(CmdPtr->szDesc)); 

break; 



case CMD_JOURNAL : 

{ 

LPRECORD pFirstRecord; 
LPRECORD pRecord; 
POINT pt; 

if (HookJournaiBusyO) 
return FALSE; 

/* need to define how the playback list is going to be sent and what 
** we are going to do about any timing type problems such as windows 
" taking longer to appear than they did in the original recording etc. 

7 

pFirstRecord = RecordMake(CmdPtr->Cmd.Journal. pRecord); 

for (pRecord = pFirstRecord; pRecord != NULL; pRecord = pRecord- 

>pNext) 

{ 

if (pRecord->msg.message >= WM_MOUSEFIRST && 
pRecord->msg.message <= WM MOUSELAST) 
f 

pt.x = pRecord->msg.paramL; 
pt.y = pRecord->msg.paramH; 
ClientToScreen(hWnd, &pt); 
pRecord->msg.paramL = pt.x; 
pRecord->msg.paramH = pt.y; 

} 

} 

Playback(NULL, 0, 0, pFirstRecord); 
break; 

} 

default : 

/* error - Unknown Command Type 

7 

return FALSE; 
break; 



return TRUE; 

} 



#define MAKEKEY(uVKey) (MAKEWORD(uVKey, MapVirtualKey(uVKey, 0))) 



FUNCTION _LOCAL BOOL me_C!k(LPMACRO CmdRr) 
DESCRIPTION Execute mouse macro command. 

PARAMETERS LPMACRO CmdRr - Points to an list of MACRO elements. 
RETURN TRUE if success. 



_LOCAL BOOL me Clk(LPMACRO CmdRr) 

{ 

LPRECORD IpList, IpHead; 
WORD Down, DownSec, Up; 
WORD time = 0x50; 

BOOL bSysKey = (CmdRr->Cmd.Mouse.AltPressed) && ! (CmdRr- 
>Cmd.Mouse.CtrlPressed); 
POINT ptCur; 

GetCursorPos(&ptCur); 

/* Mouse coordinates have already been converted to screen coordinates 
*/ 

switch (C mdRr->Cmd . Mouse . mouTy pe) 

{ 

caseMOU LBCLK : 

Down = WM.LBUTTONDOWN; 

DownSec = NULL; 

Up = WM_LBUTTONUP; 

break; 
case MOU RBCLK : 

Down = WM_RBUTTONDOWN; 

DownSec = NULL; 

Up = WM.RBUTTONUP; 

break; 
case MOU.MBCLK ; 

Down = WM.MBUTTONDOWN; 

DownSec =NULL; 

Up = WM_MBUTTONUP; 

break; 

case MOU LBDBLCLK : 

Down = WM LBUTTONOOWN; 
DownSec = WM_LBUTTONDBLCLK; 
Up = WMJ.BUTTONUP; 
break; 

case MOU RBDBLCLK : 

Down = WM RBUTTONDOWN; 
DownSec = WM RBUTTONDBLCLK; 



Up = WM_RBUTTONUP- 
break; 

case MOU_MBDBLCLK : 

Down = WM_MBUTTONDOWN- 
DownSec = WM_MBUTTONDBLCLK- 
Up = WM_MBUTTONUP- 
break; 



default: 



return FALSE; 



} 

else 



IpHead 5^° C((DW0RD ) sizeof(RECORD)); 

if (IpList) 
{ 

lpList->msg.message = WM MOUSEMOVE' 
lpList->msg.paramL = CmdPtr->Cmd.Mouse wX- 
pList->msg.paramH = CmdPtr->cmd.Mouse wY- 
lpList->msg.time =time; 
time += 0x50; 

return FALSE; 
if (CmdRr->cmd.Mouse.AltPressed) 

IpList = lpList->pNext; 

lpList->msg. message = WM_SYSKEYDOWN- 
pList->msg.paramL = MAKEKEY(VK MENU)- 
pList->msg.paramH =0x1; // repeafcount 
lpList->msg.time = time- 
time += 0x50; 

} 

else 

return FALSE; 



if (CmdRr->Cmd.Mouse.CtrlPressed) 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 

IpList = lpList->pNext; 
lpList->msg.message = WM KEYDOWN- 
IpListomsg.paramL = MAKEKEY(VK CONTROL)- 
pList->msg.paramH = 0x1 ; // repeafcount 
lpList->msg.time = time- 
time += 0x50; 

} 

else 



return FALSE; 

} 

if (CmdRr->Cmd. Mouse. ShiftPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 

{ 

IpList = lpList->pNext; 

lpList->msg. message = bSysKey ? WM SYSKEYDOWN 

WM_KEYDOWN; 

lpList->msg.paraml_ = MAKEKEY(VK_SHIFT); 
lpList->msg.paramH = 0x1 ; // repeat count 
lpUst->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList - lpList->pNext; 
lpList->msg.message = Down; 
lpList->msg.paramL = CmdRr->Cmd.Mouse.wX; 
lpList->msg.paramH = CmdRr->Cmd.Mouse.wY; 
ipList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

if (DownSec) 

{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg.message = Up; 
lpList->msg.paramL = CmdRr->Cmd. Mouse. wX; 
lpList->msg.paramH - CmdRr->Cmd.Mouse.wY; 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

lpList->pNext = Gmalloc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 
{ 



IpList = lpList->pNext; 
lpList->msg.message = DownSec; 
lpList->msg.paramL = CmdRr->Cmd.Mouse.wX; 
lpList->msg.paramH = CmdRr->Cmd.Mouse.wY; 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE, 

} 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg.message = Up; 
lpList->msg.paramL = CmdRr->Cmd.Mouse.wX; 
lpList->msg.paramH = CmdRr->Cmd.Mouse.wY; 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

if (CmdRr->Cmd.Mouse.ShiftPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 

{ 

IpList = lpList->pNext; 

lpList->msg.message = bSysKey ? WM_SYSKEYUP : WM_KEYUP; 
lpList->msg.paramL = MAKEKEY(VK_SHIFT); 
lpList->msg.paramH =0x1; // repeat count 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

if (CmdRr->Cmd.Mouse.CtriPressed) 
{ 

lpLiSt->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpUst-> P Next) 
{ 

IpList = lpList->pNext; 

lpList->msg. message = WM KEYUP; 

lpList->msg.paramL = MAKEKEY(VK_CONTROL); 

lpList->msg.paramH =0x1; // repeat count 

lpList->msg.time = time; 

time += 0x50; 

} 

else 



} 



^ return FALSE; 

if (CmdPtr->Cmd.Mouse.AltPressed) 

lpLisi->p Next = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpUst-> P Next) 

IpList - lpList-> P Next; 
lpList->msg.message = WM KEYUP- 
lpL.st->msg.paramL = MAKEKEY(VK MENU)- 
pLi^->msg.paramH = 0x1; // repeaFcount 
lpList->msg.time = time- 
time += 0x50; 

} 

else 

^ return FALSE; 

lpUst-> P Next = Gmalloc((DWORD) sizeof(RECORD)); 
if (lpList->pNext) 

IpList = lpUst-> P Next; 

lpList->msg.message = WM MOUSEMOVE- 
lpList->msg.paramL = ptCurx- 
lpList->msg.paramH = ptCur.y 
lpList->msg.time = time- 
time += 0x50- 

} 

else 

return FALSE; 

if (! MakeHookReadyO) 
return FALSE- 

else 

PlaydacK(NULL, 0, -1, IpHead); 
return TRUE; 



j FUNCTION _LOCALBOOLme_Key(KeyType) 

I DESCRIPTION Execute key macro command. 

| PARAMETERS VCM_KEY KeyType - Specifies ke description struct. 



I RETURN TRUE if success. 
*/ 



LOCAL BOOL me.Key(VCM_KEY KeyType) 



LPRECORD IpList, IpHead; 
WORD time = 0x50; 

BOOL bSysKey = (KeyType.AltPressed) && ! (KeyType.CtrtPressed); 
POINT ptCur; 

GetCursorPos(&ptCur); 

/* Not quite sure why something like a mouse move must be sent 
** before the key down to have the key down be recognized. 
•/ 

IpList = Gmalloc((DWORD) sizeof(RECORD)); 

IpHead = IpList; 

if (IpList) 
{ 

lpList->msg.message = WMJ/IOUSEMOVE; 
lpList->msg.paramL = ptCur.x; 
lpList->msg.paramH = ptCur.y; 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

if (KeyType.AltPressed) 

{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD»; 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 

lpList->msg.message = WM SYSKEYDOWN; 
lpList->msg.paramL = MAKEKEY(VK_MENU); 
lpList->msg.paramH =0x1; // repeal count 
!pList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

if (KeyType.CtriPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)>; 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg.message = WM KEYDOWN; 
IpList->msg.paramL = MAKEKEY(VK_CONTROL); 
lpList->msg.paramH = 0x1 ; // repeat count 
IpList->msg.time = time; 
time += 0x50; 

} 

else 



return FALSE; 

} 

if (KeyType.ShiftPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lptiSt->pNext) 
{ 

IpList = !pList->pNext; 

lpList->msg.message = bSysKey ? WM SYSKEYDOWN : 

WM_KEYDOWN; 

lpList->msg.paramL = MAKEKEY(VK_SHIFT); 
lpList->msg.paramH =0x1; // repeat" count 
ipList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

if (KeyType.cKey) 

{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 

lpList->msg.message = bSysKey ? WM SYSKEYDOWN : 

WM_KEYDOWN; 

lpList->msg.paramL = MAKEKEY(KeyType.cKey); 
lpList->msg.paramH = 0x1 ; // repeat count 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpUst->pNext) 
{ 

IpList = lpList->pNext; 

lpList->msg.message * bSysKey ? WM SYSKEYUP . WM.KEYUP; 
lpList->msg.paramL = MAKEKEY(KeyType.cKey); 
lpList->msg.paramH =0x1; // repeat count 
lpList->msg.time - time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

if (KeyType.ShiftPressed) 
{ 



. lpList->pNext = GmalIoc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 

{ 

IpList = lpl_ist->pNext; 

lpList->msg.message = bSysKey ? WM SYSKEYUP : WM KEYUP 
lpList->msg.paramL = MAKEKEY(VK_SHIFT); 
lpList->msg.paramH =0x1; // repeal count 
lpList->msg.time * time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

if (KeyType.CtriPressed) 
{ 

lpList->pNext = Gmalloc<(DWORD) sizeof(RECORD)); 

if (lpList->pNext) 

{ 

IpList = lpList->pNext; 
!pList->msg.message = WM KEYUP; 
lpList->msg.paramL = MAKEKEY(VK_CONTROL); 
lpList->msg.paramH =0x1; // repeat count 
!pList->msg.time =time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

if (KeyType.AltPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof (RECORD)); 

if (!pList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg.message = ( 

! (KeyType.cKey) || 

! (KeyType.CtriPressed) || 

! (KeyType.ShiftPressed) 
) ? WM SYSKEYUP : WM KEYUP; 

IpList->msg.paramL = MAKEKEY(VK_MENU); 
lpList->msg.paramH =0x1; // repeat count 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

if (! MakeHookReadyO) 
return FALSE; 

else 



. Playback{NULL, 0, -1, IpHead); 
return TRUE; 



FUNCTION _LOCAL BOOL me_String(LPSTR Str) 
DESCRIPTION Execute string macro command. 
PARAMETERS LPSTR Str - Specifies sourse string. 
RETURN TRUE if success. 



J.OCAL BOOL me String(LPSTR Str) 

{ 

LPRECORD IpList, IpHead; 
POINT ptCun 
LONG time=0x50; 

if (Str == NULL) 

return FALSE; 

GetCursorPos(&ptCur); 

/* Not quite sure why something like a mouse move must be sent 
** before the key down to have the key down be recognized. 
*/ 

IpList = Gmalloc((DWORD) sizeof(RECORD)); 
IpHead = IpList; 

if (IpList) 
{ 

lpList->msg. message = WM_MOUSEMOVE; 
lpList->msg.paramL = ptCur.x; 
lpList->msg.paramH = ptCur.y; 
lpList->msg.time = 0x50; 

} 

else 

return FALSE; 



while (*Str != NULL) 
{ 

if (isupper(*Str)) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 
{ 

IpList = !pList->pNext; 
lpList->msg.message = WM KEYDOWN; 
lpList->msg.paramL = MAKEKEY(VK_SHIFT); 



lpList->msg.paramH =0x1; // repeat count 
lpList->msg.time = time+=0x20; 

} 

else 

return FALSE; 

} 



lpList->pNext = Gmalloc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 

{ 

IpList = lpList->pNext; 
lpList->msg.message = WM_KEYDOWN; 
lpList->msg.paramL = MAKEKE Y(toupper(*Str)) ; 
lpList->msg.paramH =0x1; // repeat count 
lpList->msg.time = time+=0x2Q; 

} 

else 

return FALSE; 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = ipList->pNext; 
lpList->msg.message = WM_KEYUP; 
lpList->msg.paramL = MAKEKEY(toupper('Str)); 
IpList->msg.paramH = 0x1 ; // repeat count 
lpList->msg.time = time+=0x20; 

} 

else 

return FALSE; 

if (isupper('Str)) 

{ 

lpList->pNext = Gmalloc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg.message = WM KEYUP; 
lpList->msg.paramL = MAKEKEY(VK_SH I FT) ; 
lpList->msg.paramH = 0x1 ; // repeat count 
lpList->msg.time * time+*0x20; 

} 

else 

return FALSE; 

} 

Str++; 



if (! MakeHookReadyO) 
return FALSE; 

else 



Playback(NULL, 0, -1, IpHead); 
return TRUE; 

} 

/* 

I FUNCTION _LOCAL BOOL me_Execute(LPSTR Str) 

| DESCRIPTION Execute launch macro command. 

| PARAMETERS LPSTR Str - Specifies command string 

| RETURN TRUE if success. 

7 

LOCAL BOOL me Execute(LPSTR Str) 

{ 

charszExecfMAXFILENAME + 1]; 
char* pszParam; 

lstrcpy(szExec, Str); 

for (pszParam = szExec; *pszParam != '\0* ; pszParam ++) 

{ 

if ('pszParam == ' 0 
{ 

'pszParam s '\0'; 
pszParam ++; 
break; 

} 

} 

if (ShellExecute(NULL, NULL, (LPSTR)szExec, (LPSTR)pszParam, NULL, 
SW_SHOWNORMAL) < 32) 

{ 

Error(ERRAppExec, (LPSTR) Str); 
return FALSE; 

} 

return TRUE; 

} 



** File: STATUS.C 



** This is the windows display interface for the status window. 

** Public functions: StatusSetPref 
** PhraseListAdd 
** Statuslnit 
~ StatusCheckMsg 
- StatusGetWindow 

** Exported functions: PhraseTimerProc 
** StatusWndProc 

** Private functions: StatusBarPer 

** StatusBarOraw 

** StatusBars 

** StatusChange 

** PhraseFind 

** CloseCallFind 

** PhraseListMove 

** PhraseListlnc 

** PhraseListSetup 

** PhraseDrawltem 

** PhraseExec 

** StartTimer 

** StopTimer 

** SelectOurFont 



#define WIN31 // need this to use extended 3.1 functionality 

#include <windows.h> 

#include <memory.h> 
#include <stdlib.h> 

#include "vtools.h" 

#include "vc.h" 

#include "vcrc.h" r only files included by vc.rc V 

#inciude "vchelp.h" /* only file included by vchlp.hpj */ 

#define PROMPT LEN 14 
#define IDT PHRASE 1 
#define IDUST PHRASE 4 
#define BMP_SIZE 16 



I 

| Menu 

I 

V 

enum 

{ 



IDM PREFS = MENU STATUS, 
IDM TRAIN, 
IDM EDIT, 
IDM PAUSE, 
IDM EXIT, 

IDM HELPCONTENT, 
IDM_HELPSEARCH, 
IDM HELPONHELP, 
iDM_ABOUT 



Strings 



enum 
{ 



IDS TITLE = IDS STATUS, 

IDS DEBUG, 

IDS_PAUSE, 

IDS_CONFID, 

IDS.VOLUME, 

IDS NEW, 

IDS_QUERY 



| System menu additions. NOTE: leave low 4 bits unused ! 

I 



#defme IDM.SYSDEBUG (0x01 1 0) 



I 

I Communucation with Editor 

I 

•/ 

_LOCAL char szFrameClassQ = "VoiceEditFrame"; 
_LOCAL UINT iEditCtiangeMsg = NULL; 

_LOCAL charszStatusCIassQ = "VoiceStatus"; 

_LOCAL HWND hwndStatus = NULL; 
_LOCAL HWND hwndList = NULL; 

.LOCAL HANDLE hAccTableStatus; 

_LOCAL WORD PhraseTimer = NULL; 

_LOCAL int iVofumeMin = 20; 
.LOCAL int iVolumeMax = 80; 

.LOCAL UINT wCloseCalllnc = 0; 



_LOCAL BOOL bCloseCallWas = FALSE, 
_LOCAL UlNTwCloseCallNumber; 
.LOCAL UINT wUttCloseCall = 0; 

_LOCAL int iStatusSizeMin; 
.LOCAL BOOL bPause = FALSE, 

.LOCAL HICON hicoMain; 
.LOCAL HICON hicoStat; 

.LOCAL H BITMAP hbmpPaint; 
.LOCAL HBITMAP hbmpAnd; 

.LOCAL HFONT hFontCur = NULL; 
.LOCAL int cxStatusText; 
.LOCAL int cyStatusText; 

.LOCAL RECOGRES vrState; 

/* 

| FUNCTION .LOCAL int StatusBarPer(Rect, val) 

j DESCRIPTION Return pixel location of a percentage of the rectangle. 

I PARAMETERS LPRECT Rect - Specifies pointer to the rectangle, 
j int val - Specifies value in persents. 

| RETURN The pixel location of a percentage of the rectangle. 



.LOCAL int StatusBarPer(LPRECT Rect, int val) 

{ 

return(Rect->left + (int)(«(LONG) val) * ((LONG)(Rect->right - Rect->left))) / 10QL)); 

} 



/* 

| FUNCTION .LOCAL void StatusBarDraw(hOC, Rect, Min, Max, Cur, hBrush) 

| DESCRIPTION Draw the percentage bar for the current value. 

| PARAMETERS HDC hDC - Specifies target DC. 

j LPRECT Rect - Specifies pointer to the rectangle. 

j int Min - Specifies 

j int Max - Specifies 

j int Cur - Specifies 

j HBRUSH hBrush - Specifies 

| RETURN None. 



7 

.LOCAL void StatusBarDraw(HDC hDC, LPRECT Rect, int Min, int Max, int Cur, HBRUSH 
hBrush) { 



HBRUSH hBrSad; 
HBRUSH hBrGood; 
HANDLE hPrv; 
mt Maxp; 
int Minp; 

hBrSad = CreateSolidBrush(RGB(255, 0, 0)) ; /* Bad range. */ 
hBrGood = CreateSolidBrush(RGB(0, 255, 0)) ; /* Good range. */ 

hPrv = SelectObject(hDC, hBrSad) ; 

Minp = StatusBarPer(Rect, Min); 

if (Min) 

{ 

Rectangie(hDC, Rect->left, Rect->top, Minp, Rect->bottom); 

} 

Maxp = StatusBarPer(Rect, Max); 

if (Max != 100) 

{ 

Rectangle(hDC, Maxp, Rect->top, Rect->right, Rect->bottom); 

} 

SelectObject(hDC, hBrGood) ; 

Rectangle(hDC, Minp, Rect->top, Maxp, Rect->bottom); 

SelectObject(hDC, hPrv); r restore previous selected object. */ 
DeleteObject(hBrGood) ; 
DeleteObject(hBrBad ) ; 

r 

** Draw the current bar. 
*/ 

hPrv = SelectObject(hDC r hBrush) ; 

Minp = Rect->top + ((Rect-> bottom - Rect->top) / 4); 
Maxp = Rect->top + (((Rect-> bottom - Rect->top) * 3) / 4); 

Rectangle(hDC, Red->left, Minp, StatusBarPer(Rect, Cur), Maxp); 
SelectObject(hDC, hPrv); /* restore previous selected object. */ 



FUNCTION .LOCAL void StatusBars(hDC) 

DESCRIPTION Update the data changes to the status window bars. 

PARAMETERS HDC hDC - Specifies target DC. 

RETURN None. 



.LOCAL void StatusBars(HDC hDC) 



RECT rc; 

HBRUSH hBrush; 

HANDLE hFont; 

COLORREF hOldBk; 

char szWork[PROMPTJ_EN + 1]; 

if (! (UserGetFlagsO & PREF_Confid) && ! (UserGetFlagsO & PREF_Volume)) 

return; 
if (Islconic(hwndStatus)) 

return; 

r 

** Get the new font. 
•/ 

hFont = SelectObject(hDC, hFontCur) ; 

r 

** Get the location of the status bars. 

** From the client area rectangle get the rectangle for the first bar. 
7 

GetClientRect(hwndStatus, (LPRECT)&rc); 

Drawlcon(hDC, rc.right - GetSystemMetrics(SM_CXiCON) - 2, 2, bPause ? hicoMain : 
hicoStat); 

rc.left = PROMPTJ.EN * cxStatusText ; 
rc.right -= GetSystemMetrics(SM_CXICON) + 4; 
rctop = 2; 

rc. bottom = cyStatusText; 
/* 

** Always using this brush. 
7 

hBrush = CreateSolidBrush(RGB (0, 0, 255)) ; /* Current val 7 
hOldBk = SetBkColor(hDC, GetSysColor(COLOR_BTNFACE)); 



if (UserGetFlagsO & PREF Confid) 
{ 

r 

** The confidence display bar. 
7 

LoadString(VChlnst, tDS_CONFID, (LPSTR)szWork, PROMPTJ.EN); 
TextOut(hDC, cxStatusText, rctop, szWork, Istrlen(szWork)); 

StatusBarDraw(hDC, &rc, UserGetConfidenceO, 100, 
vrState.confidence, hBrush); 

/* 

** Move the rectangle down. 

7 

rctop += cyStatusText + 4; 
rcbottom += cyStatusText + 4; 

} 



if (UserGetFlagsO & PREF_Volume) 
{ 

/* 

** The volume display bar. 
7 

LoadString(VChlnst, IDS_VOLUME. (LPSTR)szWork, PROMPT_L£N); 
TextOut(hDC, cxStatusText, rc.top, szWork, Istrlen(szWork)); 

StatusBarOraw(hDC, ire, iVolumeMin, iVolumeMax, 
vrState. amplitude. hBrush); 



** Move the rectangle down. 

7 

rc.top += cyStatusText + 4; 
rc.bottom += cyStatusText + 4; 

} 

r 

** Put the old font back. 

7 

SelectObject(hDC, hFont); 

r 

** Free brush. 

7 

DeleteObject(hBrush) ; 
SetBkColor(hDC. hOldBk); 



r 

I FUNCTION _LOCAL void StatusChange(void) 
I DESCRIPTION Update status information. 
| PARAMETERS None. 
| RETURN None. 

7 

LOCAL void StatusChange(void) 

{ 

HOC hDC; 

char szWork[MAXSTRING + 1]; 

if (vrState.confidence >= UserGetConfidenceO) 

{ 

StringLoadParam(szWork. IDS NEW, (LPSTR)vrState.word[0]); 

} 

else 

{ 



LoadString(VChlnst, IDS QUERY, szWork, MAXSTRING); 

> 

SetWindowText(hwndStatus, szWork); 
hDC = GetDC(hwndStatus); 
StatusBars(fiDC); 
ReleaseDC(hwndStatus, hDC); 

} 

/». 

| FUNCTION _LOCAL UINT PhraseFind(szStr) 

| DESCRIPTION Find phrase in phrase listbox 

| PARAMETERS PSTR szStr - Specifies pointer to the phrase. 

| RETURN Index in the listbox or LB_ERR. 

7 

_LOCAL UINT PhraseFind(PSTR szStr) 
{ 

UINT wldx; 
LONG IRet; 

char sz Wo rd [MAX_S YM BO LJ.ENGTH] ; 

wldx = 0; 
while (1) 
{ 

IRet = SendMessage(hwndList, LB_GETTEXT, wldx, (LONG) (LPSTR)sz Word); 
if (IRet == LB ERR || IRet == NULL) 

return((UINT)LB_ERR); 
if (! lstrcmpi(szStr, szWord)) 

return(wldx); 
wldx ++; 

} 

} 



| FUNCTION _LOCAL UINT CioseCallFind(szStr) 

| DESCRIPTION Check phrase as a close call number. 

| PARAMETERS PSTR szStr - Specifies pointer to the phrase. 

| RETURN Index in the listbox or LB_ERR. 

7 

_LOCAL UINT C(oseCailFind(PSTR szStr) 
{ 

UINT wldx; 
LONG IRet; 



UINT wordNum; 

for (wldx = 0; wldx < wCloseCaltNumber; wldx ++) 
{ 

wordNum - wldx + T; 

if (! lstrcmpi(szStr, (char *) &wordNum)) 

{ 

(Ret = SendMessage(hwndList, LB GETITEMDATA, wldx, NULL) 
if (IRet == LB_ERR || IRet == NULL) 

continue; 
return(wldx); 

} 

} 

return((UINT)LB_ERR); 

} 

/• 

| FUNCTION J.OCAL void PhraseLisiMove(szStr) 

| DESCRIPTION Move phrase to the close call list. 

I PARAMETERS PSTR szStr - Specifies pointer to the phrase. 

| RETURN None. 

7 

LOCAL void PhraseListMove(PSTR szStr) 

{ 

int wldx; 

WORD wordNum; 

char szWord{MAX SYMBOL LENGTH]; 
LONG IData; 

if (istrien (szStr) == 0) 
return; 

wldx = PhraseFind(szStr); 
if (wldx ==- 1) 
return; 

SendMessage(hwndList, LB_GETTEXT, wldx, (LONG)(LPSTR)szWord); 
IData = SendMessage(hwndList, LB GETITEMDATA, wldx, NULL); 
SendMessage<hwndList, LB DELETESTRING, wldx, NULL); 

SendMessage(hwndList, LB_INSERTSTRING, wCloseCallNumber, (DWORD)(LPSTR) 
szWord); 

SendMessage(hwndList, LB_SETITEMDATA, wCloseCallNumber, IData); 

wCloseCallNumber ++; 

wordNum = wCloseCallNumber + '0'; 

#}fdef DEBUG_DLG 

if (DebugFlag & DEBUG Recog) 

#endif 

SpeechEnable((LPSTR) &wordNum); 

} 



I 

i FUNCTION J.OCAL int PhraseLstlnc(void) 

I 

| DESCRIPTION Return close call list increment 

! 

1 PARAMETERS None. 

I 

| RETURN Close call list increment 



_LOCAL int PhraseListlnc(void) 
{ 

RECT Red; 
int ListSize; 
int CloseCallSize; 

CloseCallSize = wCloseCallNumber * (cyStatusText + 1); 
GetClientRect(hwndStatus, (LPRECT) &Rect); 
ListSize = Rect. bottom - iStatusSizeMin; 
if (ListSize < 0) 

{ 

ListSize = 0; 

} 

return((ListSize >= CloseCallSize) ? 0 : CloseCallSize - ListSize); 

} 

/• 

I 

| FUNCTION BOOL PhraseListAdd(szStr, ContextEntry) 

I 

| DESCRIPTION Add phrase to the phrase list. 

i 

| PARAMETERS PSTR szStr - Specifies pointer to the phrase. 
I int ContextEntry - Specifies index in the context list. 

I 

| RETURN TRUE if success. 



BOOL PhraseListAdd(char * szStr, int ContextEntry) 
{ 

UINT wldx; 

BOOL bWord = FALSE; 

if (szStr == NULL) 
{ 

returnfTRUE); 

} 

if (ContextEntry ==-1) 
{ 

r 

** Has no context link so look for one. 
•/ 

if (PhraseFind(szStr) != -1) returnfTRUE); 



} 

tffdef DEBUG_DLG 

if (DebugFlag & DEBUG Recog) 

#endif 

bWord = SpeechEnable(szStr); 

/* 

** Now add it to the list. 
7 

wldx = (UINT) SendMessage(hwndList. LB ADDSTRING, 0, (DWORD) (LPSTR) szStrV 

if (wldx == (UINT) LB ERR) 

{ 

return(FALSE); 

} 

SendMessage(hwndList, LB_SETITEMD ATA , wldx, MAKELONG(ContextEntry 
bWord)); 

return (TRUE); 

} 

/* 

| FUNCTION J.OCAL void PhraseListSetup(void) 

j DESCRIPTION Get the current set of words and give them to the recognizer. 

| PARAMETERS None. 

| RETURN None. 

7 

_LOCAL void PhraseListSetup(void) 

{ 

UINT wldx; 
RECT rc; 

if (! hwndList) 
return; 

SendMessage(hwndList, WM SETREDRAW, FALSE, 0); 
SendMessage(hwndList, LB.RESETCONTENT, 0, 0); 

#ifdef DEBUG_DLG 

if (DebugFlag & DEBUG_Recog) 

#endif 

SpeechDisableAllO; !* Disable all words. */ 

ContextListAddO; /* Get context first. 7 

if (wCloseCalllnc) 

{ 

r 

** Resize window to normal 
7 

GetWindowRect(hwndStatus, &rc); 



rc.bottom -= wCloseCalllnc; 
" wCloseCalllnc = 0; 
MoveWindow( 

hwndStatus, 

rc.ieft, 

rc.top, 

rc.right - rc.ieft, 
rc.bottom - rc.top, 
TRUE); 



if (bCloseCallWas) 

{ 



r 

** Include CloseCall information 
7 

wCloseCallNumber = 0; 

for (wldx = 0; wldx < vrState.nWords; PhraseListMove(vrState.word[widx ++])); 

if (! Islconic(hwndStatus)) 
{ 

/* 

** Should we resize PhraseList ? 

7 

wCloseCalllnc = PhraseUstlncO; 
if (wCloseCalllnc) { 

GetWindowRect(hwndStatus, &rc); 
MoveWindow( 

hwndStatus, 

rc.ieft, 

rc.top, 

rc.nght - rc.ieft, 

rc.bottom - rc.top + wCloseCalllnc, 
TRUE); 

} 



} 

SendMessage(hwndLiSt, WM_SETREDRAW, TRUE, 0); 

} 

r 

I FUNCTION _LOCAL void PhraseDrawltem(LPDRAWITEMSTRUCT Ipd) 
j DESCRIPTION Draw item routine for the status item. 



PARAMETERS LPDRAWITEMSTRUCT Ipd - Specifies pointer to the DRAWITEMSTUCT. 
RETURN None. 



7 

LOCAL void PhraseDrawltem(LPDRAWITEMSTRUCT Ipd) 

{ 



HBRUSH hBrush; 
int iBkColor, 
int iTxColor; 

char szWord[2 * MAX_SYMBOL_LENGTH + 50]; 

if (lpd->itemlD ==-1) 
return; 

if ((lpd->itemState & ODS SELECTED) && (lpd->itemState & ODS FOCUS)) 
{ 

iBkColor = COLOR HIGHLIGHT; 
iTxColor = COLOrIhIGHLIGHTTEXT; 

} 

else 

{ 

iBkColor = COLOR WINDOW; 
iTxColor = COLORJMNDOWTEXT; 

} 

SetTextColor(lpd->hDC, GetSysColor(iTxColor)); 
SetBkColor( lpd->hDC, GetSysColor(iBkColor)); 

hBrush = CreateSofidBrush(GetSysColor(iBkColor)); 
FillRect(lpd->hDC, (LPRECT)&(lpd->rcltem), hBrush); 
DeleteObject(hBrush); 

r 

** Now draw the text. 
7 

SendMessage<hwndList, LB_GETTEXT, lpd->itemlD, (LONG)(LPSTR)szWord); 
if (bCloseCallWas && lpd->iTemlD < wCloseCallNumber) 

{ 

PaintBitmap( 

lpd->hDC, lpd->rcitem.left, lpd->rcltem.top, 
BMP_SIZE, BMP_S1ZE, 

hbmpAnd, hbmpPaint, lpd->itemlD * BMP_SIZE, 0); 
TextOut(lpd->hDC, lpd->rcltem.left + BMP SIZE, lpd->rcltem.top, szWord, 
Istrlen(szWord)); 

} 

else 
{ 

if (!HIWORD(SendMessage(hwndList, LB_GETITEMDATA, lpd->itemlD, 0L))) 
{ 

SetTextColor(lpd->hDC, GetSysColor(COLOR GRAYTEXT)); 

} 

fifdef DEBUG DLG 

if (DebugFlag & DEBUG ContFull) 
{ 

TabbedTextOut(lpd->hDC, lpd->rcltem.lefl, lpd->rcitem.top, 

szWord, istrlen(szWord), 2, ContextTabs, lpd->rcltem.left); 

} 

else 

#endif 

TextOut(lpd->hDC, lpd->rcltem.left, lpd->rcltem.top, szWord, lstrlen(szWord)); 



} 

} 

I' 

! FUNCTION J.OCAL void PhraseExec(wldx) 

! DESCRIPTION Execute the links associated with the phrase. 

! PARAMETERS UINT wldx - Specifies index of the phrase in the Sistbox. 

I RETURN None. 

*/ 

.LOCAL void PhraseExec(UINTwidx) 
{ 

if (wldx != (UINT)LB ERR) 
{ 

StatusChangeO; 
/* 

** Activate the context link macro. If it has one. 
7 

ContextListSelect(LOWORD(SendMessage(hwndList, LB GETITEMDATA 

wldx, NULL))); 
} 

} 

/•- 

I FUNCTION void CALLBACK PhraseTimerProc(hwnd, msg, idTimer, dwTime) 

j DESCRIPTION An application-defined callback function that 
| processes WM_TIMER messages, 

j Look for context change 

! PARAMETERS HWND hwnd - Identifies the window associated with the timer. 

| UINT msg - Specifies the WMJTIMER message. 

| UINT idTimer - Specifies the timer's identifier. 

| DWORD dwTime - Specifies the current system time. 

| RETURN None. 

7 

void CALLBACK PhraseTimerProc(HWND hwnd, UINT wMsg, UINT idTimer, DWORD dwTime) 
{ 

static BOOL Active = FALSE; 

if (lActive) 
{ 

Active = TRUE; 

if (ContextCheck(FALSE)) 

{ 

bCloseCallWas = FALSE; 



SpeechEraseO; 

PhraseListSetupO; /* rebuild the current vocab list */ 

} 

Active = FALSE, 

} 

} 



| FUNCTION J.OCAL void StartTimer(void) 

| DESCRIPTION Start timer to look to the context change. 

| PARAMETERS None. 

| RETURN None. 

*/ 

LOCAL void StartTimer(void) 

{ 

PhraseTimer = SetTimer(NULL, IDT_PHRASE, 500, (TIMERPROC)PhraseTimerProc); 
if (! PhraseTimer) 

Error(ERRNoTimers); 

} 

/* 

| FUNCTION _LOCAL void StopTimer(void) 

| DESCRIPTION Stop(kill) timer. 

| PARAMETERS None. 

| RETURN None. 

*/ 

_LOCAL void StopTimer(void) 

{ 

KillTimer(NULL, PhraseTimer); 

} 

r 

| FUNCTION void StatusSetPref(HWND hwnd) 

I DESCRIPTION Set the windows preferences. 

I Find the minimum size for the status window. 

j number of pixel height units to the start of the vocab box. 

| PARAMETERS HWND hwnd - Specifies handle to the status window. 

| RETURN None. 

7 

void StatusSetPref(HWND hwnd) 

{ 



int sfNew = UserGetFlagsQ; 
RECT rc; 
int yinc = 0; 



iStatusSizeMin = 0; 

if (sfNew & PREFJ/olume) 

iStatusSizeMin += 4 + cyStatusText; 
if (sfNew & PREF.Confid) 

iStatusSizeMin += 4 + cyStatusText; 
iStatusSizeMin = max(iStatusSizeMin, 6 + GetSystemMetrics(SM_CYICON)}; 
GetClientRect(hwnd, &rc); 
if (rc. bottom < iStatusSizeMin) 

yinc = iStatusSizeMin - rc.bottom; 
GetWindowRect(hwnd, &rc); 
MoveWindow( 

hwnd, 

rc.left, 

rc.top, 

rc.right - rc.left, 
rc.bottom - rc.top + yinc, 
TRUE); 

SendMessage(hwnd, WM_S!ZE, 0, OL); 

lnvalidateRect(hwnd, NULL, TRUE) ; I* rebuild if resized or not */ 

ContextCheckfJRUE); 

PhraseListSetupO; r rebuild the current vocab list. */ 

} 

/* 

! 

| FUNCTION LOCAL void SelectOurFontO 

! 

! DESCRIPTION Select font for phrase listbox. 

! 

| PARAMETERS None. 

I 

| RETURN None. 



LOCAL void SelectOurFontO 

T 

HDC hDC; 
TEXTMETRIC tm; 
HFONT hFontNew; 

hFontNew = UserGetFontO; 

hDC » CreatelC((LPSTR)"DISPLAY", NULL, NULL, NULL) ; 
SelectObject(hDC, hFontNew) ; 
GetTextMetrics(hDC, &tm); 



SendMessage(hwndList, WM_SETFONT, hFontNew, OL); 



SendMessage(hwndList, LB SETITEMHEIGHT, 0, MAKELONG(max(tm tmHeiqht 
BMP_SI2E), 0)); 

cxStatusText = tm.tmAveCharWidth; 
cyStatusText = tm.tmHeight; 
if (hFontCur != NULL) 

DeleteObject(hFontCur); 
hFontCur = hFontNew; 
DeleteDC(hDC); 



FUNCTION BOOL CALLBACK StatusWndProc(hwnd, wMsg, wParam, iParam) 

DESCRIPTION Window Proc VoiceStatus class. 
The form of the status window is follows: 
Titie bar = System menu icon, last word, w/ current 
Confidence 
Volume 

Current options list box. 

PARAMETERS HWND hwnd - Specifies the handle of the window 
UINT wMsg - Specifies the message 
WORD wParam - Specifies 16 bits of additional 

message-dependent information 
LONG IParam - Specifies 16 bits of additional 

message-dependent information 

RETURN Depend upon the message. 



long FAR PASCAL StatusWndProc(HWND hwnd, UINT wMsg, WORD wParam, LONG IParam) 

{ 

static WORD wMenuCmd = NULL; 
static DWORD dwMenuBits = NULL; 
static BOOL bRecogReady = FALSE; 

switch (wMsg) 

{ 

case WM CREATE: 
{ 

I* Install System 
*/ 

LPCREATESTRUCT Iocs = (LPCREATESTRUCT) IParam; 

/* Create the list of available words for the user. 
*/ 

hwndList = CreateWindow( 
"LISTBOX", 
NULL, 

WS CHILD | WS VISIBLE | WS BORDER | 
WS HSCROLL | LBS NOINTEGRALHEIGHT | 
LBS NOTIFY | LBS OWNERDRAWFIXED | 
LBS_HASSTRINGS | LBS_WANTKEYBOARDINPUT, 
iStatusSizeMin, 



0, 

lpcs->cx - iStatusSizeMin, 
lpcs->cy, 

hwnd, /• parent. •/ 

IDLIST_PHRASE, 

VChlnst, 

(LPSTR) NULL); 
if (hwndList == NULL) 
{ 

return(-1); 

} 

/* Hook message queue 

7 

Hooklnstall(TRUE); 

/* Start DDE with Program Manager 

7 

ShellDdelnit(&VCTalk); 

/* Install help hook (F1 in dialogs and menu) 
7 

HelpHooklnitO; 

/* The window gets created, so do the one time stuff. 

7 

hicoMain = Loadlcon(VChlnst, MAKEINTRESOURCE(ICO MAIN)); 
hicoStat = Loadlcon(VChinst MAKEINTRESOurce(icoJstat)); 
hbmpPaint = LoadBitmap(VChlnst, 
MAKEINTRESOURCE(BMP_CLCALL)); 

hbmpAnd = CreateAndBitmap(hbmpPaint); 

#ifdef DEBUGJDLG 

/* update system menu 

7 

{ 

char szWork(MAXSTRING + 1]; 

HMENU hMenu = GetSystemMenu(hwnd, FALSE);; 

AppendMenu(hMenu, MF SEPARATOR, 0, 0); 
LoadString(VChlnst, IDS DEBUG, (LPSTR)szWork, 

MAXSTRING); 

AppendMenu(hMenu, MF STRING, IDM SYSDEBUG, 

(LPSTR)szWork); 

DrawMenuBar(hwnd); 

} 

#endif 

/* Set prefs 

7 

SelectOurFontO; 
StatusSetPref (hwnd) ; 

/* Status is owner of the speech channat 
7 

SpeechOwner(hwnd); 



r Set the initial values to the prase list. 



PhraseListSetupQ: 
bRecogReady = TRUE; 
r Do not put break here. 



change user from void to current 



case VCM_USERCHANGED: 

RECT rc; 
HCURSOR hcur 
HWND hwndEdrt; 

hcur= SetCursor(LoadCursor(NULL, IDC_WAIT)) ; 
/* Set Status placement 

UserGetWinRecKszStatusCJass, ire)- 
MoveWindow( 

hwnd, 

rc.ieft, 

rc.top, 

rc. right - rc.ieft, 

rc. bottom - rc.top 

TRUE); 
StopTimerO; 
bRecogReady = FALSE; 

/* Load voice file 



#ifdef DEBUG_DLG 



V 



#endif 



if (DebugFlag & DEBUG_Recog) 



SpeechUserChangeQ; 




/* Load Language 



/* Load from the editor 



iEditChangeMsg, 0, OL)); 



ContextNewLang((LPLANG)SendMessage(hwndEdit. 



else 
{ 



/* Load from the file 



7 



} 



ContextNewLang(NULL); 



bRecogReady = TRUE; 

StartTimerO; 

SetCursor(hcur); 

PhraseListSetupO; 

break; 



case WM_MENUSELECT: 

r Keep menu selection for help 

7 

dwMenuBits=IParam; 
wMenuCmd=wParam; 
goto defmsg; 

caseVCM HELP: 

if (!(LOWORD(dwMenuBits) & MF POPUP)) 

{ 

if (!(LOWORD<dwMenuBits) & MF_SYSMENU)) 

{ 

/* Menu help 
7 

He!p(hwnd, HELP_VCMenuPrefs + wMenuCmd - 

MENU STATUS); 

} 

else 
{ 

/* System menu help 
*/ 

He!p(hwnd, HELP_SysMenu); 

} 

} 

else 
{ 

/* General help 
7 

Help(hwnd, HELP Status); 

} 

break; 

caseVCM SPEECH: 
{ 

r 

** Speech available 

7 

UINT wldx; 
UlNTwUtt; 

if (bRecogReady && IbPause) 

{ 

bRecogReady = FALSE; 
StopTimerO; 

wUtt = SpeechRecog(&vrState); 
/* Check Close Call list first. 



*/ 

if (wUtt != 0) 
{ 

if (vrState.confidence >= UserGetConfidenceO) { 
if (bCloseCatlWas) { 

wldx = CIoseCallFind(vrState.word[0]); 
if (wldx != (UINT)LB_ERR) { 

SendMessage(nwndList, 

LB_GETTEXT, wldx, (LONG)(LPSTR)(vrState.word[0])); 

if ( UserGetFlagsO & 

PREF_Adapt) { 

SpeechAdapt(vrState.w 

ord[0], wUttCloseCall); 

} 

} 

else{ 

wldx = 

PhraseFind(vrState.word[0]); 

} 

} 

else{ 

wldx = PhraseFind(vrState.word{0]); 

} 

bCloseCallWas = FALSE; 
SpeechEraseO; 

r A word was recognized correctly. 
*/ 

PhraseExec(wldx); 

} 

else{ 

r Setup Close Call list 
*/ 

bCloseCallWas = TRUE; 
wUttCloseCall = wUtt; 
StatusCrtangeO; 
PhraseListSetupO; 

} 

} 

StartTimerO; 
bRecogReady = TRUE; 

} 

break; 

} 

case VCM TRAIN: 
{ 

r Word was trained 
*/ 

UINT wldx; 
LONG IData; 
RECT rc; 

wldx = PhraseFind((PSTR)IParam); 
if (wldx != (UINT)LB_ERR) { 

IData = SendMessage(hwndList, LB GETITEMDATA, wldx, OL); 



if (!HIWORD(iData)) { 

SendMessage(hwndList, LB SETITEMDATA, widx, 

MAKELONG(LOWORD(IData), TRUE)); 

SendMessage(hwndList, LB GETITEMRECT wldx 

(LONG)(LPRECT)&rc); 

lnvalidateRect(hwndList, &rc, TRUE); 

} 

} 

break; 

} 

caseWM PAINT: 
{ 

r A repaint instruction has been given. 

7 

HDC hDC; 
PAINTSTRUCT ps; 
HICON hlcon; 

hDC = BeginPaint(hwndStatus, (LPPAINTSTRUCT)&ps); 

if (Islconic(hwndStatus)) 

{ 

/* Draw iconic window 
•/ 

hlcon = (bPause) ? hicoMain : hicoStat; 
Drawlcon(hDC, 0, 0, hlcon); 

} 

else 
{ 

/* Create the volume and confidence boxes. 
7 

StatusBars(hDC); 

} 

EndPaint(hwndStatus, (LPPAINTSTRUCT)&ps); 
break; 

} 

case WM_SIZE: 
{ 

/* Move the phrase list. 
7 

RECT rc; 

GetClientRect(hwnd, &rc); 
MoveWindow( 

hwndList, 

rc.left, 

rc.top + iStatusSizeMin, 
rc.right - rc.left + 1 , 

rc.bottom - rc.top - iStatusSizeMin + 1 , 
TRUE); 

break; 

} 

caseWM GETMINMAXINFO: 
{ 



MINMAXINFO FAR • Ipmmi = (MINMAXINFO FAR *) IParam: 
RECT re; 

memset(&rc, 0, sizeof(rc)); 
rc.bottom = iStatusSizeMin; 

AdjustWindowRect(&rc, WS_OVERLAPPEDWINDOW, TRUE); 

lpmmi->ptMinTrackSize.x = MAX_SYMBOL_LENGTH * cxStatusText; 
lpmmi->ptMinTrackSize.y = rc.bottom - rc.top + wCloseCalilnc; 
break; 

} 

case WM_SETFOCUS: 

/* We just got the focus. 
7 

SetFocus(hwndList); /* Give it to the list box. */ 

break; 

case WM_QUERYDRAG!CON: 

/* A repaint instruction has been given. 
•/ 

return(bPause ? hicoMain : hicoStat); 

case WM.DRAWITEM: 

/* The system listbox wants us to draw the item. 
" DRAWITEMSTRUCT 

7 

PhraseDrawltem((LPDRAWITEMSTRUCT) IParam) ; 
break; 

#ifdef DEBUG DLG 

caseWM SYSCOMMAND: 

if"((wParam & OxFFFO) == IDM SYSDEBUG) 

{ 

/* Bring up the Debug dialog box. 
*/ 

DialogBox(VChlnst. MAKEINTRESOURCE(DLG_DEBUG), 

hwnd, DebugDIgProc); 

/* Rebuild phrase list 

7 

PhraseListSetupO; 

} 

else 
{ 

goto defmsg; 

} 

break; 

#endif 

case WM.COMMAND: 
switch (wParam) 
{ 

case IDM.PREFS: 

I* Bring up the User Prefereces dialog box. 



if(UserPref(hwnd)) 

{ 

SelectOurFontO; 

} 

StatusSetPref (hwnd) ; 
break; 

case IDM_TRAIN: 

r Bring up the Vocabulary Training dialog box. 
V 

SendMessage(hwnd, WM COMMAND, 
IDLIST_PHRASE, MAKELONG(0, LBNJDBLCLK)); 

break; 

case IDM_PAUSE: 
{ 

r Pause on/off. 

7 

char szTitle[MAXSTRING + 1]; 
bPause = ! bPause; 

CheckMenultem(GetMenu(hwnd), I DM PAUSE, 

MF BYCOMMAND | (bPause ? MF CHECKED 

: MF_UNCHECKED)); 

LoadString(VChlnst, IDS_TITLE, (LPSTR)szTitle, 

sizeof(szTitle)); 

SetWindowText(hwnd, (LPSTR)szTitle); 
lnvalidateRect(hwnd, NULL, TRUE) ; 
break; 

} 

case IDM_EDIT: 

{ 

r 

** Bring up the Language Editor 
*/ 

char szVeFile[MAXFILENAME + 1]; 

lniGetVeFile(szVeFile); 
WinExec(szVeFi!e, SW_SHOW); 
break; 

} 

case IDM_EXIT: 
r Exit now 

7 

SendMessage(hwnd, WM_CLOSE, 0, OL); 
break; 

case IDM_HELPCONTENT: 
I* Bring up the Help 
7 

Help(hwnd, HELP_Status); 
break; 



#ifdef DEBUG.DLG 



case IDM_HELPSEARCH: 

/* Bring up the Help Search 

7 

Help(hwnd, HELP.Search); 
break; 

case IDM_HELPONHELP: 

/* Bring up the HelpOnHelp 
*/ 

Help(hwnd, HELP_OnHelp); 
break; 

case IDM_ABOUT: 

/* Bring up the About., dialog box. 
7 

About(hwnd); 
break; 

case IDLIST_PHRASE: 

switch (HIWORD(IParam)) { 
case LBN DBLCLK: 



(UiNT)SendMessage(hwndList, LB_GETCURSEL, 0, 0); 



LB.GETTEXT, wldx, (LONG)(LPSTR)(vrState.word[0])); 
DEBUG_ContFult) 



if (DebugFlag & DEBUG_Force) { 
/* Execute command 
7 

char * Ptr, 
UINT wldx = 

vrState.confidence = 100; 
vrState. amplitude = 0; 
SendMessage(hwndList, 



if (DebugFlag & 



{ 



/* Skip debug 



vrState.word[0]; *Rr, Ptr ++) 



for (Ptr = 
{ 



if (* Rr == '\t') 
{ 

*Rr = 



PhraseExec<wldx); 
break; 



r Train command 



TrainExec(TRUE, 
(UINT)SendMessage(hwndList, LB_GETCURSEL, 0, 0), hwndList); 

break; 
case LBN_SETFOCUS: 

/* We just got focus, clear previous 

inputs. 

7 

break; 

default : 

goto defmsg; 

} 

break; 

default: 

goto defmsg; 

} 

break; 

case WM_QUERYENDSESSION: 

{ 

WINDOWPLACEMENT wndpl; 
HWND hwndEdit; 

if (wParam -- 2) 

{ 

r We dont quit, just hange user 

7 

hwndEdit = FindWindow(szFrameClass, NULL); 

if (hwndEdit != NULL) 

{ 

Error(ERREditExist); 

ShowWindow(hwndEdit, SW_SHOWNORMAL); 

SetFocus(hwndEdit); 

break; 

} 

} 

I* Save users settings 

7 

wndpl.length = sizeof(wndpi); 
GetWindowPlacement(hwnd, &wndpl); 
UserSetWinRect(szStatusClass, &(wndpl.rcNormalPosition)); 
goto defmsg; 



case WM_CLOSE: 

t* Ask permision before quit 
7 

if (CallTaskWindows(TRUE, WM QUERYENDSESSION, TRUE, 0L)) 
{ 

CallTaskWlndows(FALSE, WM DESTROY, 0, 0L); 

} 

break; 
case WM.DESTROY : 



r Free resores 

7 

HCURSOR hcur 

hcur = SetCursor(LoadCursor(NULL, IDC WAIT))- 

StopTimerO; 

Destroylcon(hicoStat); 

Destroylcon(hicoMain); 

DeleteObject(hbmpPaint); 

DeleteObject(hbmpAnd); 

DeieteObject(hForrtCur); 

/* Free speech system 

7 

#ifdef DEBUG_DLG 

if (DebugFlag & DEBUG Recog) 

#endif 

SpeechFreeO; 

/* Unhook message queue 

7 

Hooklnstall(FALSE); 
HookFreeJoumalO; 

/* Close help if was opened 

7 

Help(hwnd, HELP_Quit); 

r Stop DDE 
7 

ShellDdeExit(&VCTalk); 

r Unhook help hook 
7 

HelpHookExitO; 

/•Save the user file. 
7 

UserExitO; 
SetCursor(hcur); 

I* Kill the task and other windows. 
7 

PostQuitMessage(O); 
break; 

} 

default: 

if (wMsg == iEditChangeMsg) 
{ 

r Changes in Editor saved 
** We need to update language 

7 

HCURSOR hcun 



hcur = SetCursor(LoadCursor(NULL, IDC_WAIT)); 

StopTimerO; 

bRecogReady = FALSE; 

/* Load Language 

7 

ContextNewLang((LPLANG)IParam); 

bRecogReady = TRUE; 

StartTimerO; 

SetCursor(hcur); 

break; 

} 

defmsg: 

return DefWindowProc(hwnd, wMsg, wParam, IParam); 

} 

return (NULL); 

} 

r 

I FUNCTION BOOL Statuslnit(BOOL bNew) 
| DESCRIPTION 
| PARAMETERS 
| RETURN 

7 

BOOL Statuslnit(BOOL bNew) 

{ 

WNDCLASS wc; 

char szTitle(MAXSTRING + 1]; 

RECT rc; 

HWND hwnd; 

if (bNew) 

{ 

UserlnitO; 

r To reload file 
7 

iEditChangeMsg = RegisterWindowMessage(szFrameClass); 

/* Register the window class. 

7 

memset(&wc, 0, sizeof(wc)); /* zero structure to start. 7 

wcstyle = CS DBLCLKS | CS HREDRAW | CS_VREDRAW ; 
wclpfnWndProc = (WNDPROC)StatusWndProc; 
wc.hlnstance = VChlnst; l* task owner. 7 

wc.hCursor = LoadCursor<NULL, IDC_ARR0W) ; 



wc.hbrBackground = COLOR_BTNFACE + 1; 
• vvc.lpszClassName = (LPSTR) szStatusClass; 
wc.lpszMenuName = MAKElNTRESOURCE(MENU_STATUS); 

if (! RegisterClass(&wc)) 
retum(FALSE); 

hAccTableStatus = LoadAccelerators(VChlnst, 
MAKElNTRESOURCE(ATBL_STATUS)); 



/* Create Status Window 

7 

UserGetWinRect(szStatusC!ass, &rc); 

LoadString(VChlnst, IDSJTITLE, (LPSTR)szTitle, sizeof(szTitle) - 

hwndStatus = CreateWindowEx( 
WS.EXTOPMOST, 
szStatusClass, 
(LPSTR)szTitle, 

WSJDVERLAPPEDWINDOW & (~WS_MAXIMIZEBOX), 

rc.left, 
rc.top, 

rc.right - rc.left, 

rc.bottom - rc.top, 

NULL, 

NULL, 

VChlnst, 

(LPSTR) NULL); 

if (! hwndStatus) 

return(FALSE); 

I* Send timer message to update context. 
** every 1/2 of a second or so. 

7 

StartTimerO; 

ShowWindow(hwndStatus, SW.SHOWNORMAL); 

/• install recognition system 
7 

#ifdef DEBUG OLG 

if (DebugFlag 4 DEBUG_Recog) 

#endif 

SpeechlnitO; 
PhraseListSetupO; 

} 

else 

r Only one instanse of Voice Control should be present 

7 

hwnd = FindWindow(szStatusClass, NULL); 

if (hwnd) 

{ 

/* This should always be true !? 



*l 

ShowWindow(hwnd, SW.SHOWNORMAL); 

/* Flash it to indicate location. 
*/ 

SetFocus(hwnd); 

} 

} 

return (TRUE); 

} 

i*. 

I 

| FUNCTION BOOL StatusCheckMsg(MSG * pMsg) 

I 

| DESCRIPTION Message translation. 

I 

| PARAMETERS MSG * pMsg - Specifies pointer to the incoming message. 

I 

I RETURN TRUE if processed(message belong to the status). 



BOOL StatusCheckMsg(MSG * pMsg) 
{ 

if (hwndStatus != NULL && GetFocusO == hwndList && 

TranslateAccelerator(hwndStatus, hAccTableStatus, pMsg)) 
retum(TRUE); 

return(FALSE); 

} 

/*. 

I 

| FUNCTION HWND StatusGetWindow(void) 

I 

| DESCRIPTION Return status window handle. 

I 

| PARAMETERS None. 

I 

| RETURN Window handle. 

I 

*/ 

HWND StatusGetWindow(void) 
{ 

return(hwndStatus); 

} 



